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l. ABSTRACT 


ES ALLO TEES, cre Sas 13 eee 
oe Bee ei ice 
G AN OINTERACTIVE TEST Nort He 1 eK K DRIVES ON THE 


cuBSy STEM T PROGRAM INTENDED TQ BE_ USED TO VERIFY THAT THE 
pues ot Ie PRO PERF RMENG Po oF. DATA ERROR RATE AND SEEK 
RROR RATE SPECIFICATIONS. 


THE RPOW/S/G MULTIDRIVE ee PROGRAM Wt si A CONNECTED 
AS EITHER SINGLE OR DUAL PORT UNITS. DUAL 
BY LOADING AND RUNNING THE PROGRAM FROM BOTH CONTROLLING EySTENS. 
THE PROGRAM WILL EXERCISE A MIXED SYSTEM OF DUAL PORT AND NON DUAL 
PORT DRIVES. 
OBTA 
R 


OBTAIN INTER vee TESTING, OPERATIONS ON THE DRIVES ARE OVERLAPPED 
(OTHER DR eatin a ORMING SEEK/SEARCH renee aa os * 


I TE CHECK OPERATION 
OPERATIONS AMONG THE DRIVES ARE OPTIMIZED SO THAT A HIGH SUBSYSTEM DATA 
TRANSFER RATE OR A HIGH POSITIONING OPERATION RATE IS MAINTAINED. 


| THE PERFORMANCE OF EACH DRIVE TS MONITORED BY THE PROGRAN, 
DRIVE EXCEEDS A PRESET SROERAL ’ CATEGORIES, 
i 
} 
| 
| 





HAT athe IS Aad bie ALLY DERSSIGNED, —( eis OPERATOR MAY OVERRIDE 
THE AUTOMATIC Oe REPORTS PERFORMANCE 
STATISTICS FOR E BEING “ee 1325 9N ORE QUEST FROM THE 
OPERA OR AUT PAT ALLY NTERV TERMINED BY THE OPERATOR. 


L_ DATA TRANSFER COMMANDS ARE USED (I.E., WRITE DATA, WRITE HEADER 
& DA kb 85 UR WRITE CHECK 


AN RECALIBRATE AND 
READ-IN PRESET COMMANDS ARE USED AT STARTUP AND DRIVE INITIALIZATION. 
RECALIBRATE, OFFSET, AND RETURN-TO-CENTERLINE COMMANDS ARE USED 

. DURING ERROR PROCESSING. 


THE DATA TRANSER COMMANDS ARE SELECTED RANDOMLY EXCEPT FOR THE 
WRITE CHECK COMMANDS. THE WRITE CHECK y wht ARE USED TO VERIFY 
A PREVIOUS WRITE OPERATION. THUS, WHEN A WRITE COMMAND IS SELECTED, 

M3 ‘aby WRITTEN IS VERIFIED BY THE APPROPRIATE WRITE CHECK 


PROGRA” ‘OPERATOR COMMUNI CATIONS ARE THROUGH THE KEYBOARD; DYNAMIC 
PROGRAM OPTIONS ARE selec Tee BY SWITCH REGISTER SETTINGS. ERRORS 
ARE REPORTED ON THE TELETYPE. 


ALL COMMANDS DATA PATTERNS, AND DATA BUFFER SIZES ARE SELECTED 


RANDOMLY BY THE PROGRAM. ADDITIONALLY THE ADDRESSES (EG, CYLINDER, 
TRACK, RAND SECTOR) FOR EACH OPERATION ARE SELECTED RANDOMLY. 


é. REGUIREMENTS 
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2.1 EQUIPMENT 
REQUIRED 


P PROCESSO 
1Bk. fenon CeSRR IF THE PROGRAM IS INCLUDED IN AN *XxDP" CHAIN 


PROGRAM LOADING DEVICE 
KWii-L_OR KW11-P CLOCK 
RH11 OR RH70 WITH 1 RPOY, RPOS, OR RPO& DISK DRIVE 


ADDITIONAL MEMORY TO A MAXIMUM OF 28K 
1 TO 7 ADDITIONAL RPO4/S/6’S ON THE SAME RH11 OR RH70 


é.2 MEDIA 


THE RPOY/S/& MULTIDRIVE EXERCISER PROGRAM REQUIRES poms Tee DISK PACKS 
WHICH CONTAIN RANDOM OR PATTERNED DATA RECOGNIZED BY THE EXERCISER. 

DISK PACKS USED BY THE PROGRAM MAY BE GENERATED BY THE RPO4/S/6 FORMATTER 
PROGRAM (MAINDEC-11-DZRJB) OR BY THE *W’ COMMAND OF THE RPOQ4/S/6 MUL TIDRIVE 
EXERCISER (SEE ake 4.4). THE PACKS MUST BE FORMATTED IN 22 
SECTOR (16 BIT) MODE; THE ALTERNATE (20 SECTOR - 18 BIT) MODE IS 

NOT SUPPORTED. 


&.3 - PRELIMINARY PROGRAMS 


RPOY/S/6 mS ee CONTROLLER TEST 
T 1 (MAINDEC-11-DZRJG) 
ART 2 (MAINDEC-11-D2RJH) 


PO4/S/6 FUNCTIONAL CONTROLLER TEST 
PART 1 (MAINDEC-11-DZRJI) 
PART 3 (MAINDEC-11-D2RJJ) 


RPO4/S/6 ope Bag lh a ee pe (FOR DUAL PORT DRIVE TESTING) 
BART 3 (MAINDEC-11-DZRJF } 


3. OPERATING THE PROGRAM 


3.1 THE PROGRAM MAY BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR 
IT MAY BE LOADED FROM THE APPROPRIATE *XXDP’ MEDIA USING THE ASSOCIATED 
LOADER. THE PROGRAM MAY BE INCLUDED IN AN 'XXDP’ CHAIN. IF THE 
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3.3 


3.4 


3.5 


3.5.1 


3.6 
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Sh oe IS BEING RUN Pt ° GRAN Most WITH 16K, THE or EC WILL 


none Yo. BRESERVE THe FAK FAD oER. BF ee Pre Coat RS wl cL { 
RVED IN A 18K SyStEN, HOWE VE 


THE PROGRAM STARTS AT LOCATION 200(8). PARAMETERS NOT INCLUDED IN 
Tee ene DIAGLOGUE GROUP MUST BE CHANGED BEFORE THE PROGRAM 
START THE PROGRAM AT LOCATION 204(8) IF THE RH11 OR THE RH70 IS 
NOT AT ADDRESS 176700. 


ONCE THE PROGRAM IS LOADED AND STARTED, OPERATIONS ARE INITIATED AND 
CONTROLLED BY KEYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS. 


IF THIS IS THE PROGRAM’S FIRST START, THE STATUS OF THE DRIVES ON 
THE SELECTED MASSBUS SUBSYSTEM WILL BE TYPED OUT. ON SUBSEQUENT 
STARTS, THIS TYPEOUT MAY BE INHIBITED BY SETTING SW<O2>. 

PASS/TEST TERMINATION 


A PASS IS DETERMINED BY ones BITS READ OR SEEKS Meh Poe 


MORE THAN 1 SE one IN 1 X EKS. THE NUMBER OF BITS 0 
SEEKS DETERMINING A PASS WERE SELECTED TO PROVIDE A 90% CONFIDENCE 
LEVEL THAT THE DRIVE IS PERFORMING TO THE APPLICABLE SPECIFICATION. 
PASS TERMINATION 


END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS. 
THE END OF PASS CONDITION USED IS DETERMINED BY PARAMETER *ENDET’. 


A. IF PARAMETER ’ENDET’ IS 1, END OF PASS OCCURS WHEN THE DRIVE 
AD 1.875 xX 108 RORDS (3 X 1019 B 
8. IF PARAMETER. "ENDET’ IS 0, END OF PASS AceURS WHEN THE DRIVE 
HAS PERFORMED 3 X lOt& SEEKS. 


TEST TERMINATION 

THE TEST FOR A DRIVE IS TERMINATED (SW<O4> = 0) WHEN: 

A. THE ORIVE HAS corr LETED THE NUMBER OF PASSES SPECIFIED IN 
PARAMETER ’PASCNT 

B. THE TOTAL ERRORS ACCUMULATED EXCEED 100. 

C. A FATAL ERROR OCCURS: EMle OR EM14. 

RUN TIME 

THE EXERCISER Ay ary MAY BE RUN IN THO MODES. THE MODE IS 


DETERMINED BY THE VALUE IN PARAMETER ’MAXDL’. IF *MAXDL’ IS ONE 
SECTOR, THE PROGRAM RUNS IN A SEEK HEAVY MODE; IF ’MAXDL’ APPROACHES 








SEQ 0006 






I01 
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ONE TRACK _IN SIZE (5720 ea th THE PROGRAM RUNS 


eet’ ene se ta oer 


ITE RATIO "RATIO’, AND BY SUI 

3.6.1 DATA TRANSFER MODE = 
L DRIVE - APPROXIMATELY 2.5 HRS (TO REACH 1.875 X 10+8 WORDS) 
8 DRIVES - APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 X 10t8 WORDS) 


NA Pero reece 
NDIN 
R 

, 82 


NOTE: IF x 1> = 1 (NO SOFTWARE DATA COMPARSIONS), THE TUN TIMES 
ARE THE FOLLOWING VALUES, APPROXIMATELY: . 


1 DRIVE - 1.7 HRS (1.875 X 1018 WORDS READ) 
ADD Le HOUR FOR EACH ADDITIONAL DRIVE TESTED. 


IF THE PROGRAM IS RUN WITH BOTH SW<CO> AND SW<O1> 
SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER. 


3.6.2 SEEK VERIFICATION MODE 
TER *MAXDL’ = 1 SECTOR (256 WORDS) 

PARAMETER 'MAXTRK’ = ’MINTRK’ 

PARAMETER *MAXSEC’ = ’MINSEC’ 

S’W<00> = 1 (READ ONLY MODE) 

1 DRIVE - APPROXIMATELY 25 HRS (3 X 101& SEEKS) 
: 8 DRIVES - APPROXIMATELY 40 HRS (3 X LOte SEEKS FOR ALL DRIVES) 
3.7 UNIBUS & VECTOR ADDRESSES 


THE PROGRAM ASSUMES THE FOLL Lot ING UNIBUS AND VECTOR ADDRESSES. (REFER 


TO SECTION 4.c.2 FOR THE LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES. ) 


wNtT RoORESs ADDRESS 
RH11 OR RH70 ‘176700 25y 
TTY PRINTER 177564 NOT USED 
TTY KEYBOARD ‘177560 60 
KWL1-L 177546 100 
KWL1-P 172542 104 


3.8 DUAL PORT OPERATION 


A. LOAD THE RPO4/S/& MULTIDRIVE EXERCISER PROGRAM INTO SOTH 
PROCESSORS. 






JOl 





















-MAIN. MACY11 27(65S) 28-APR-76 17:08 PAGE 8 


DZRIDA.DOC 
B. SWITCH THE “CONTROLLER SELECT’ SW ite on *A/B’ H 
ihicH 15 To BE TESTED AS A UAL PORT ORIVE; CYCLE THE’ DRIVES 
START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM AS THROUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER. 





‘. CONTROLLING THE PROGRAM 


THE FOLLOWING KEYBOARD CONVENTIONS ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRAM: 


A. TO DEL TE, AN JNCORRECT CHARACTER FROM AN ENTRY STRING, TYPE A 
*RUBOUT’ (’RO’). TYPING A 'RO’ WILL DELETE SUCESSIVE CHARACTERS 
FROM THE INPUT. 

. TO DELETE AN ENTIRE LINE, TYPE A "CONTROL U’ (’tU"). 
C. AN ENTRY MUST BE TERMINATED BY EITHER A *CARRIAGE RETURN’ OR 
A *PERIOD’. THE ’PERIOD’ TERMINATION IS RECOGNIZED BY T 
PROGRAM AS A EQUEST. A 
BY A’ 0D EAD GE THE PROGRAM 
ACCEPT THE ENTERED VALUE AND WILL BEFALLT TO’ THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 


D. IF A *CONTROL C’ IS TYPED DURING KEYBOARD ENTRY, THE PROGRAM 
WILL RETURN TO THE BEGINNING OF THE GROUP BEING’ ENTERED. 


4.1 DATE & OPERATOR IDENTIFICATION 
WHEN THE PROGRAM IS INITIALLY STARTED, IT WILL ASK FOR DATE AND 
(THE REQUEST FOR 


. OGRAM 28 wr E 
8 CHARACTERS OF DATE INFORMATION AND UP TO & CHAR oY ERS OF AOPERATOR 
IDENTIFICATION MAY oe ENTERED. BOTH THE DATE +0 THE OPERATOR 1.0. 

WILL BE TYPED WHEN THE ’SA’ COMMAND IS PERFORI‘E > (SEE SECTION 4.4.3). 


4.2 PARAMETERS 


WHEN THE PROGRAM IS STARTED FROM LOCATION 200, THE OPERATOR WILL BE 
ASKED TO ENTER PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


ENTER PARAMETERS: 
THE OPERATOR MUST ENTER A ’Y’ Spee 4 BY A CARRIAGE RETURN <CR> 


IF PARAMETER ENTRIES ARE TO BE MADE. ANY OTHER CHARACTER IS ACCEPTED 
AS A 'NO’ ENTRY. THE PROGRAM WILL IDENTIFY THE PARAMETER BY THE NAME 


-— -- 
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4.2.1 
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KOl 


GIYGN PeLoW DISPLAY THE CURRENT VALUE OF THE PARAME 


ENTRY. 


TER AND 
THE PROGRAM WILL TYPE "INVALID ENTRY’ IF THE 


ENTRY IS NOT CORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED. 


KEYBOARD ENTRY PARAMETERS 
DEFAULT 


NAME 
MAXDL 
PASCNT 
INTRVL 


CMPLMT 
WCSEL 


ENDET 


FORMAT 


RATIO 


AUTOCK 


BASE 


10 
10 
10 


10 
8 


VALUE 


VALUE RANGE 


(SEE NOTE) 

1 1-999 

5S 0 - 2% 

3. 0 - ‘MAXDL’ 
poooop Ss RI 
oo0001 «=«s«0 OR 
pooo01 «ss OR 
coos «io - 7 
o00001 








CONTROLS THE MAXIMUM BUFFER 
RUREER OF PRS FOR opel? TRANSFERS 
S TO END OF 


OF SERNINES THE INTERVAL (IN 
MINUTES) BETWEEN BUTOMATIC 
PERFORMANCE SUMMARY TYPEOUTS 
ERRORS PRINTED OUT IF SW<07>=0 
THE NUMBER OF DATA COMPARSION 
THE DATA 
TRANSFER WORD COUNT IS RANDOMLY 
SELECTED “th hn 4 (10) AND 
THE VALUE MAXDL 


IF PARAMETER = HE DATA 
TRANSFER WORD “COUNT WILL 
BE THE vaLUE IN MBXDL 

IF PARAMETER D OF PASS 
DETERMINED BY “The FNORSS READ’ 


4 
IF PARAMETER = 0, END OF PASS 
IS DETERMINED BY’ THE NUMBER 
OF SEEKS. 


IF PARAMETER = NOT 
_ PERFORM WRITE *WPADER : DATA 


ORDERS: IF PARAMETER 
PERFORM WRITE HEADER H Sara 
ORDERS 


tol THE APPROXIMATE 
pee o.§ F READ TO WRITE 


VALUE RM RATIO 


NOUILCOIIUHO 
£ 
“N 
a 


IF PARAMETER. = 1, THE PROGRAM 
PERFORM WRITE “ohtcKs AFTER 












LOL 
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EACH WRITE COMMAND ron ed 
the CABEREORN ARTE Checks 


AN 
NOTPRT 98 000001 0 OR 1 IF P RPARETER = DO NOT PRINT 
; ERROR MESSAGE = FOR DATA ERRORS 
OCCURING AT EB ATTONG DEFINED 

BY a Aap! AS BAD PACK 


PRINT ERROR 


IF PARAMETER = 
MESSAGES ABCOCIAtED WITH BAD 
LOCATIONS. 


NOTE: ™ peoeree WILL SELECT A MAXIMUM BUFFER SIZE WHICH 


VALUE SPECIFIED IS AT LEAST 4 WORDS BUT NO LARGER THAN 
THE INITIAL VALUE OF *MAXDL’ DETERMINED BY THE PROGRAM. 


4.2.2 PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF INTEREST 
TO ALTER THESE LOCATIONS, THE OPERATOR MUST MAKE MANUAL ENTRIES 
BEFORE THE PROGRAM IS STARTED. THE KEYBOARD ENTRY ROUTINE DOES 
NOT PROVIDE ACCESS TO THESE LOCATIONS. 


LOC TAG CONTENTS FUNCTION 


1144 $TKS 177560 TTY KEYBOARD STATUS REGISTER 

te, $TK8 177562 TTY KEYBOARD Fee Rec tETER 

11 $TPB 77566 ER FER REGISTER 

1174 $LKCSR 172540 ADDRESS OF KW11-P STATUS REGISTER 
1176 $LKCSB 172542 eres OF uD -P COUNTER BUFFER 
1200 SLPVEC 104 11-P VECTO R 

1202 $LKS 177546 ADDRESS OF KWLI-> STATUS REGISTER 
1204 SLLVEC 100 KW1l1l-L VECTOR ADDRESS 

lele HZ 74 74 (oe DECIMAL) IF SYSTEM IS 60 HZ; 


62 (SO DECIMAL) IF SYSTEM IS SO HZ. 
THE RH11-RH70 ADDRESS AND VECTOR MAY BE CHANGED WHEN THE PROGRAM 
IS STARTED FROM LOCATION 204(8) OR IF THE PROGRAM DOES NOT RECEIVE 
A RESPONSE WHEN IT ACCESSES THE DEFAULT RH11-RH70 ADDRESS. 
4.2.3 PARAMETERS FOR THE FIRST OPERATION ; 


THE FOLLOWING PARAMETERS ARE USED FOR THE INITIAL OPERATION (IN 
ADDITION TO THE *MINIMUM’ ADDRESS VALUES). 


INITIAL VALUE 


ee 
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Loc TAG VALUE RANGE FUNCTION 


i412 = BEGPAT)=—é«<*L'CDD i- 35 THE CODE FOR THE STARTING 












OR A WRITE CHECK 
: SPECIFIED IN reEGCODT) 
1414 ~=BEGCOD S G-% THE INITIAL COMMAND FOR EACH DRIVE 


D. 
At E CK DATA 

RITE CHECK HEADER & DATA 
ITE DATA 
ITE HEADER & DATA 
DATA 
ID HEADER & DATA 

ER SIZE FOR THE FIRST 
RANSFER OPERATION. 






om— 
mn 
zDD 
=o 
ba 






"DD 
NOOO 


1416 BEGSIZ 404 4 - MAXDL 


OoDwD= 
MT fifib bea 


ATA 





4.3 SWITCH REGISTER SETTINGS 








SW <15> = 1 HALT ON ERROR 

SW <i3> = 1 INHIBIT ERROR TYPEOUT 

SW <10> = 1 RING THE TELETYPE BELL IF ERROR 

SW <7?) = 1 DISPLAY ALL DATA con PARE ERRORS 

cw <6) = 1 DO NOT ALTER THE CURRENT OPERATION PARAMETERS 

Sw <S> =] PARTIAL REGISTER STSELAY IF ERROR; DO NOT DISPLAY 
ECC CORRECTION RESULTS 

SW <> = 1 INHIBIT MAXIMUM ERROR COUNT CHECK: DO NOT DEASSIGN 

SR DRIVES WHEN NORMAL END OF TEST REACHED. 





DISPLAY THE SECTOR IN ERROR (BEFORE RETRY ATTEMPTS) 
IF ’D OR 'WCF’ ER RORS OR AFTER THE 28TH 
RETRY IF " UNRORRECTRBL E *DCK’ ERROR. 

IF DATA COMPARE ERRORS & SW<7> SET, DISPLAY REST 


OF BUFFER 
SW <e> = 1 INHIBIT SUBSYSTEM STATUS TYPEOUT ae STARTUP. 
SW 







INHIBIT PERFORMANCE SUMMARY TY 
at . =1 NHIBIT YnOoe AFTER READ ORDERS 


IF THE PROGRAM IS BEING RUN ON A_SWITCHLESS PROCESSOR (I.E. AN 11/34) 
THE PROGRAM WILL tg 4 THAT THE HARDWARE SWITCH REGISTER IS 

NOT PRESENT AND WILL USE A *SOFTWARE’ SWITCH REGISTER. THE 
SOFTWARE’ SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE *SOFTWARE’ SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE _WHIC Ball G’. ao te sale at WILL 





i EAD ONLY M 








N B DE S_AT A HIGH g 
PPO4/S/6 INTERRUPT. THE SOFTWARE’ SWITCH VALUES ARE ENT 
AS AN OCTAL NUMBER IN RESPONSE TO THE PROMPT FROM THE SUIT CH 
ENTRY ROUTINE: 
*SWR = NNNNNN NEW =’ 


EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 











NO1 
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IMAGE MUST BE ENTERED. LEADING ZEROS ARE NOT REQUIRED., *RUBOUT’ AND 
"CONTROL U’ FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 


ON rere aes WITH HARDWARE SWITCH REGISTERS, THE *SOFTWARE’ SWITCH 
REGISTER MAY BE USED. IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
*UP* POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO ie 

oF FA OLED” REGISTER AND THE PROCEDURES DESCRIBED ABOVE MU 


4.4 KEYBOARD COMMANDS 


THROUGH THE KE YBORRD COMMANDS, THE OPERATOR MAY BSSIGN, DRIVES 
FOR T WRITE AND CHECK DATA PACKS ( OMMAND) , 
PERFORM a‘ SEQUENTIAL READ OF A PACK (*R’ COMMAND) REQUEST A DRIVE 
PERFORMANCE SUMMARY (?S’ COMMAND), oR Beater GN A DRIVE WHICH IS 
BEING TESTED, READING, OR WRITING’ (°D’ COMMAND). 


AFTER THE PROGRAM HAS BEEN INITIALIZED, THE FOLLOWING MESSAGE 
WILL BE TYPED: 


*PROGRAM INITIALIZATION COMPLETE 
*TYPE A CONTROL C TO ENTER COMMANDS’ 


phe! ees WILL + BE RECOGNIZED UNTIL THE OPERATOR TYPES 
y L_C’. WHEN THE PROGRAM SEES A *CONTROL C’ ENTRY, IT WILL 
SU SF END. THE SCHEDULING OF Hells. DEVICE were ee AND WAIT UNTIL 
ALL OUTSTANDING ORDERS HAVE TERMINATED. PROGRAM WILL ENTER 
COMMAND ENTRY MODE AND TYPE THE FOLLOWING "PROMPT ING MESSAGE: 






















H:MM:SS 
ENTER COMMANDS: ° 
THE PROGRAM at. en ACCEPT ANY OF THE VALID COMMANDS. +3 Le 


IF THE C IE 
DRIVE NUMBER, THE PROGRAM WILL REMAIN IN COMMAND NODE. UNTIL ALL 
AVAILABLE bates HAVE BEEN PROCESSED. 


THE °T’, "W’, AND °R’ COMMANDS REQUIRE ADDRESS LIMITS, DRIVE I.D, 
AND BAD "LOCATION aDoRESS ENTRIES FOR THE DRIVE BEING REFERENCED.” 


‘ene WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING 





"ENTER ADDRESS LIMITS FOR DRV #N ~ RPOY’* (OR RPOS OR RPO6) 


THE PROGRAM WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
PARAMETERS. 


DEFAULT 
NAME BASE VALI RANG: FUNCTION 
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MINCYL 10 (SEE NOTE) THE MINIMUM CYLINDER ADDRESS 
MAXCYL 16 (SEE NOTE) THe MAXIMUM YEINCER ADDRESS 
MINTRK 0 9 - 18 THE MINIMUM TRACK ADDRESS 
XTRK 18 0 - 18 MAXIMUM TRAC 5 
MINSEC §610 9 0 - 2] THE MINIMUM SECTOR ADDRESS 
MAXSEC 10 21 0-2! THE MAXIMUM SECTOR ADDRESS 
NOTE: i. THE ADDRESS LIMITS ARE IN DECIMAL 
2. THE MAXIMUM VALUES OF ’MINCYL’ AND 'MAXCYL’ WILL BE EITHER 
419 (10) OR 814 (10) DEPENDING ON THE TYPE OF DRIVE. 
3. MINIMUM CYLINDER, TRACK, OR SECTOR pODRESS MAY BE - 
speci IED AS BEING LARGER THAN THE Max MUM ADDRESS. WHEN 
UES ARE INVERTED, THE PROGRAM TWILL SELECT 
ADDRESSES BETWEEN THE MIN’ ADDRESS AND 
PHYSICAL LInIT OR THAT NADDRESS AND BETWEEN ve AND THE 
EACH COMMAND EXCEP "AND THE °D’ COMMANDS, WILL ASK FOR 
& DR ve 1DENTIF TT TONE nTBy. HE DRIVE IDENTIFICATION ENTRY 
Bea eet IS MADE BY THE FOLLOWING MESSA 


"ENTER I.D. FOR ORV @N:’ 


THE OPERATOR MAY ENTER AN I.D. NUMBER FO VE OF UP 
CHARACTERS N N LENGTH. THIS I.D. WILL BL ON 
EXECUTED. TER othr NG 
TERMINATED SY A CARRIAGE RETURN’, NULL SENTRY 
IN RESPONSE TO THE I.D. REQUEST. 


THE PROGRAM WILL THEN ASK FOR THE ADDRESSES OF KNOWN BAD SPOTS ON 
THE DISK PACK USED, UP TO 16 ADDRESSES MAY BE ENTERED: 


| ‘BAD TRK/SEC ADRS FOR DRV #N 7° 
THE OPERATOR MAY DECLARE UP TO 16 BAD LOCATIONS ON THE PACK BEING | 
USED. THE LOCATION MAY BE AN ENTIRE CYLINDER, A BAD TRACK, OR A SINGLE 
| SECTOR. THE FORMATS USED ARE AS FOLLOW: 

FORMAT 1: ¢,T,S<CR> 

| . THE PROGRAM WILL INHIBIT DATA ERROR MESSAGES OR WILL 


| IDENTIFY DATA ERRORS WHICH OCCUR AT THE SPECIFIED ADDRESS, 
DEPENDING ON THE VALUE OF PARAMETER "NOTPRT’. 













SE9 O0i3 


5. 
FORMAT 2: 
fA. 


LEADING ZEROS ARE NOT REGUIRED. 
C,T<CR> 
WHEN THIS FORMAT IS USED, THE ENTIRE TRACK WILL BE 


GPNSIDERED BAD: DATA ERRORS WILL BE HANDLED AS IN 
"FORMAT 1°, ABOY 





mm ee ee ee. 
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B. LEADING ZEROS ARE NOT REQUIRED. 
FORMAT 3: C<CR> 


BEY UE LOE SEA UE WS 
B. LEADING ZEROS ARE NOT REQUIRED. 


NOTE: CYLINOER, TRACK, AND SECTOR ENTRIES ARE IN DECIMAL. 


THE OPERATOR MAY TERMINATE THE 8AD ADDRESS ENTRY BY ENTERING A 
*PERTOD’ IN RESPONSE TO THE ENTRY REQUEST OR BY TERMINATING AN ENTRY 


WITH A *PERIOD’ INSTEAD OF A "CARRIAGE RETURN’ 
*T’ COMMAND 


USED TO ASSIGN A DRIVE(S) FOR TEST. THIS COMMAND IS REQUIRED 
PERFORM THE TEST OF THE DRIVE(S). THE OTHER COMMANDS ARE CONVIENCE 
COMMANDS OR SUPPORT COMMANDS. 


FORMAT: TN<CR> 


= DRIVE NUMBER. Y BE-0 10 7.0R ‘A’. ENTRY MUST BE 
TERMINIATED BY a CARRIAGE RETURN <CR> ; 


EXAMPLE: TO<CR> - ASSIGN ORIVE O FOR TEST 
TA<CR> = ASSIGN ALL AVAILABLE DRIVES FOR TEST 


NOTE: ORIVE OPERATION BEGINS IMMEDIATELY 
AFTER COMMAND IS ENTERED. 

*D’ COMMAND 

USED TO DEASSIGN A DRIVE(S) BEING EXERCISED. 

FORMAT: ON<CR> . 


‘N= DRIVE NUMBER. WAY BE 0.70.7 OR "Ax, ENTRY MUST BE 


TERMINIATED BY A CARRIAGE RETURN < 
EXAMPLE: Roce - DEASSIGN DRIVE 0 
DAS » sete ALL DRIVES BEING 


NOTES: 1. IF COMMAND 7 A a 
serv T ASSIGNED THE PROGRA 
WILL TYPEOUT *?DRIVE NOT ASSIGNED’ 


2. THE DRIVES WILL BE DEASSIGNED AS THEIR 
OPERATIONS COMPLETE. 


3. IF "DA’ IS USED, ONLY DRIVES BEING 








ER W 
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Gs 


4.4.4 


DO02 


TESTED WILL BE Swapwtcr - THE 
ERROR MESSAGE IN (1) ABOVE WILL NOT 
BE DISPLAYED. 


*S* COMMAND 


cA Bpanamamea A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 
($). 


FORMAT: SN<CR> 


RIVE NUMBER. MAY BE O T0 7 OR ’A’. ENTRY MUST BE 
ERMINIATED BY A CARRIAGE RETURN <CR>. ‘ 


EXAMPLE: ae - TYPEOUT PERFORMANCE SUMMARY FOR ORIVE 0 
SA<CR> = TYPEOUT PERFORMANCE SUMMARY 
FOR ALL DRIVES BEING TESTED. 


NOTES: i. IF *SA’ IS USED ONLY DRIVES BEING TESTED WILL 
BE DISPLAYED. 


2. If PARAMETER *INTRVL’ IS NOT ZERO, THE PR grat 
WILL AUTOMATICALLY DISPLAY A PERFORMANCE SUMMA’ 
FOR ERC EACH DRIVE BEING TESTED AT A RATE SE TERMINED BY 


IF THE *SA’ COMMAND IS USED, THE PROGRAM WILL TYPEQUT 
Ma OPERATOR ENTERED DATE, OPERATOR _1.D., AND Me DRT 
I. 


G@ 


VE 
5. FOR EACH DRIVE BEING TESTED. THE DATE AND OPERATOR 
O. WILL NOT BE TYPED OUT IF NO DRIVES ARE BEING TESTED. 


*W’ COMMAND 


USED TO WRITE A DATA — WITH DATA ACCEPTABLE TO THE RPOY/S/& MULTI- 
DRIVE EXERCISER PROGRAM 


FORMAT: WN<CR> 


N = DRIVE NUMBER. MAY BE 0 10 7 OR °A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WacCR> - WRITE DATA PACKS ON ALL AVAILABLE DRIVES. 
WO<CR> - GENERATE A DATA PACK ON DRIVE OQ. 


NOTES: 1. DATA PACKS GENERATED BY THE PROVE 7 FORMATTER PROGRAM 
(MD-11-DZRJB) OR BY THE RPO 425/ £ ite CHAN ICAL & READ/WRITE 
PROGRAM (MD-11-DZRJA) TEST 20 ARE ACCEPTABLE. (PACKS 
WRITTEN BY TESTS 16 I? OR 21 OF 'DZRJA’ CANNOT BE USED 
AND MUST BE REWRITTEN. 


&. THE *W’ COMMAND SHOULD NOT BE USED UNLESS "MAXOL’ 


PARAMETER IS APPROXIMATELY 1 TRACK IN SIZE - 3900 (10). 
IF THE BUFFER SIZE IS MUCH LESS THAN 1 TRACK, THE 


en me ee a ee oe ee ee 





SEQ 001s 
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oe Bree ARED TO WRITE A DATA PACK IS TOO GREAT TO 
3. THE °*W’ COMMAND Pa pave. A SEQUENTIAL WRITE OF THE 
PACK USING . "WRITE DATA* COMMAND. THE DATA PATTERN 
TE i SELECTED ey rt . 2 


USED FOR EACH WRI HOWEVER 
Tee, OPERATION, OF THE CO bi SEQUEN TAL BEGINNING 
arn MINCYL®, *MINTRK’ aN CON NUING TO *MAXCYL’, 


4. THE 'W’ COMMAND DOES NOT WRITE HEADERS AND ASSUMES 

THAT THE FORMA HE PACK IS GOOD. 

S. THE *W’ COMMAND CANNOT BE STARTED IF SUITCH 0. (READ 
ON LY ROE) IS SET. IF SWITCH O SET SET DURING THE 
OPERATION OF THE *W’ COMMAND, THE DRIVE PERFORMING THE 
’W’ COMMAND WILL TSNORE THE SWITC 


&. THE DATA WRITTEN IS VERIFIED BY A ’WRITE CHECK DATA’ 
COMMAND. 


4.4.5  °R’ COMMAND 
USED TO PERFORM A SEQUENTIAL READ OF THE PACK. 
FORMAT: RN<CR> 


N = DRIVE NUMBER. MAY BE 0 TO 7 OR ‘A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: RA<CR> - READ THE PACKS ON ALL OF THE ONLINE DRIVES. 
RO<CR> - READ THE PACK ON DRIVE 0. 


NOTES: 1. THE PROGRAM WILL PERFORMA NORMAL CHECK OF ALL DATA 
READ. HOWEVER, ALL OPERATIONS WILL BE SEQUENTIAL. 


2. THE PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS 
SPECIFIED BY "MINCYL’, "MINTRK’ TO THE ADDRESS SPECIFIED 
BY *MAXCYL’, ’MAXTRK’. THE READ WILL BE SEQUENTIAL. 
4.4.5 GENERAL COMMAND INFORMATION 
A. WHEN A COMMAND IS ENTERED, THE PROGRAM WILL TYPE OUT THE TIME 


B. IF THE COMMAND ENTERED IS NOT VALID, THE PROGRAM WILL TYPE 
"INVALID COMMAND’ . 


C. DRIVES ASSIGNED (WITH THE ’T’ COMMAND) OR DEASSIGNED (WITH THE 
*D’ COMMAND) MAY BE ENTERED IN ANY SEQUENCE. 


D. THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS 





es en we —_—— - ooo 
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FOe 


RESPONSE COMMAND (S) 
UNIT NO T, W, R 
CUNT N ROTTA Se : , 
oUNTT N ALRER GNED =f} i, R 
UNIT N NOT P T WR 
CUNIT NV UNSAF TW, R 
CUNT N NOT AN RPO4/S/6 TWeR 


THE PROGRAM WILL DISPLAY A PERFORMANCE SUMMARY FOR THE DRIVES 
BEING EXERCISED. Rist SUMMARY WIL aoe pISELAYED PUT ORT ICALLY 
IF THE PARAMETER "INTRVL’ IS NOT 0 OR CAN BE DISPLAYED ON 
REQUEST BY THE RATOR THROUGH THE "Use 0 AND. 
THE PERFORMANCE SUMMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 


) 
nd 
i 


*DRV’ THE DRIVE NUMBER 

*Pass’ THE PRESENT PASS COUNT FOR THE DRIVE 

ORDERS’ THE NUMBER OF ORDERS PERFORMED BY THE DRIVE 
SEEKS’ THE NUMBER OF SEEK OPERATIONS THE ORIVE PERFORMED 


*WROS XFER’ THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY THE DRIVE 
"WROS READ’ THE TOTAL NUMBER OF WORDS Ror BY THE ORIVE 


*SOFT’ THE NUMBER OF SOFT pote Tate 

* HARD’ THE NUMBER OF HARD ont 

*SKI’ THE NUMBER OF ’SKI’ eee RORS 
*MISP’ THE NUMBER OF POST TIONING E RORS 

* OTHER’ THE TOTAL ERRORS OF OTHER TYPES 


NOTE: ERRORS EM1, EM2, EM3 EN, “EMS, & EMLO ARE NOT INCLUDED IN 
THE ’OTHER’ ERROR TOTAL 


SOFT/HARD ERROR DEFINITIONS 
HARD ERRORS 


A. A *DTE’ (DRIVE TIMING ERROR) OR A *DCK’ (DATA CHECK ERROR 
WHICH OCCURS DURING A READ DATA or A READ HEADER & The BR SPeRaTION 


HE BAD SECTOR. 
THE RETRY SEQUENCE IS 16 RE-READS AT TRACK CENTER AND 2 ATTEMPTS 
AT EACH OF THE FOLLOWING OFFSETS: 
RPO4/S RPO6 

+400 MICRO-INCHES +200 MICRO-INCHES 

400 MICRO-INCHES 7E08 MICRO-INCHES 

+800 MICRO-INCHES ’ NC 

-800 MICRO-INCHES “400 MICRO INCHES 


“WY 
Ar 
{ 
¥ 

























SE@,0017 
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§.2.2 


6.1 


6.2 


6.3 


6.4 


+1200 MICRO-INCHES +800 MICRO-INCHES 

-1200 MICRO-INCHES ~800 MICRO-INCHES 
SOFT ERRORS 
A. ECC GORE ET K’ ERRORS. 
B. ‘DOCK’ & "ECH’ RRORS WHICH BECOME ECC CORRECTABLE DURING 

RETRY OR WHICH ARE READ CORRECTLY DURING RETRY. 

C. ty 3h AO Reons - RE ab DATA, READ HEADER & DATA, OR 
D. ‘*DTE’ ERRORS WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 


*DCK’ ERROR DURING THE RETRY SEQUENCE. 


DATA CHECKING & ERROR RECOVERY 


DATA COMPARISON 


i COMPARISON OCCURS AFTER EACH "RDDAT’ (READ DATA) OR *RDHD’ 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE ORDER TERMINATED WITH NO ERROR. 


THE OPERATION TERMINATED WITH "DCK* SET AND THE ERROR 
IS ECC CORRECTABLE OR THE SECTOR IN ERROR IS READ 
CORRECTLY AFTER RETRY ATTEMPTS. 


VERIFICATION OF DATA WRITTEN 


AFTER EACH WRITE OPERATION, THE DATA WRITTEN IS CHECKED WITH THE 
APPROPRIATE WRITE CHECK COMMAND - IF PARAMETER *AUTOCK’ IS 1. 
(IF "AUTOCK’ IS 0, WRITE CHECKS WILL BE BEREORNED RANDOMLY.) - 


SECTOR REFORMATTING 


THE PROGRAM WILL REFORMAT AN Cec TORE ERROR Bk IN THE 
FOLLOWING CASES (PARAMETER *FORMAT’ MUST BE SET AND SW<00> = Q). 
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUCUSLY REPORTED. 


A. DATA CHECK ERRORS - EM21 
: HEADER RE ORS - EMCO, EM24, EM2S, EM26, EM27 
C. DRIVE TIMING ERRORS - EMail 
D. OPERATION INCOMPLETE ERRORS - EM32 
E. WRITE CHECK ERRORS - EM22, EM23 


BAD TRACK/SECTOR FLAGGING 


SINCE THE RPOY SU SYSTEM DOES NOT HAVE AN AUTOMATIC BAD TRACK 
HANDLING CAPABILTIY, THE MULTIDRIVE EXERCISER erry THE OPERATOR 
TO_ IDENTIFY UP TO 8 8690 TRACK/SECTOR LOCATIONS WHEN THE DRIVE IS 
ASSIGNED FOR TEST. (SEE SECTION 4.1 FOR ROBT TIONAL INFORMATION. ) 





* " wir oo18 












H0e 
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F ONE OF THE FOLLOWING ERRORS 0 


T CCURS AT A LOCATION IDENTIFIED By 
foe THE PROGRAM WILL INHIBIT THE ERROR REPORT FOR THAT 


x 


pate CHECK ERRORS (°DCK” ) 
WRITE CHECK ERRORS (° 
Se ture INCOMPLETE ERRORS ("OPI") 
READER RE READ DS ERRORS (’ FER? & & "HCRC’, "HCE" & ’HCRC’, "HCRC’) 
OPTIONALLY, THE OPERATOR MAY tia aes Sree SEE FOR ,FLAGEED 


AREAS. (PARAMETER 'N * MUST TO 
PROGRAM WILE IDENTIFY ERROR MESSAGES ASSOCIATED WITH THE pack: THESE 
ERRORS, MILL NOT BE ADDED TO THE ERROR TOTALS MAINTAINED BY THE j 


v. ERROR MESSAGES 


DRIVE ERRORS ARE REPORTED ON T nS ARE” REPOR OR Te /AVAILAB E) R 
eile INTER. ae CONDIT _ odie TED a aneon Mae TS 
HE PR pe CON TAINS NO CODED ERR LTS °, 

(ASSUMING COURSE, THAT SW<15S> fs NOT ap oN UNRECOV VER RELE 
PROGRAM GbnDE TION HAS OCCURRED OR A CENTRAL Jecfeae FAILURE HAS 


ERROR MESSAGES ARE MADE UP OF SEVERAL LINES. EACH TYPE OF ERROR 
HAS SEVERAL OPTIONAL LINES WHICH MAY APPEAR WITH IT. ALL OF THE 
POSSIBLE ERROR MESSAGE LINES itch MAY APPEAR ARE GIVEN IN THE 
SECTION DESCRIBING THE BART CULAR ERROR HEADER. 

ERROR DESCRIPTION LINES 

MESSAGES EM, EM2, E€M3, EM4, EMS, EM1O, EM11, & EM12 ARE ALWAYS 
DISPLAYED ON THE TTY. ‘THE OTHER R MESSAGES ARE DISPLAYED ON EITHER 
THE LINE PRINTER (IF AVAILABLE) OR THE T 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE. ) 

MESSAGE 

TAG TEXT 


EM1  RHI1 INTERRUPT OCCURRED (RPAS=0) 


THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER 
(RPAS) WAS CLEARED. 


EMe UNEXPECTED ATTENTION OCCURRED 
THE INDICATED DRIVE INTERRUPTED BUT THE DRIVE WAS hl 


~ 
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PERFORMING AN OPERATION. 
EM3 MASSBUS PARITY ERROR (MCPE=1) 


THE RHii DETECTED A CONTROL BUS PARITY ERROR WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


EM4 MASSBUS PARITY ERROR (PAR=1) 


THE INDICATED RPOY DETECTED A CONTROL BUS PARITY ERROR 
WHEN THE RH11 LOADED THE SPECIFIED REGISTER. 


EMS ADDRESS PLUG CHANGE BIT SET 
THE OPE’ BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
EME RH11 DIDN’T RESPOND TO ADDRESSING 


WHEN 3 PROGRAM ADDRESSED THE RH11, NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


EM10 UNCORRECTABLE MASSBUS PARITY ERROR 


THE PROGRAM HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 
REGISTER. 


EM11 FATAL MASSBUS PARITY ERROR 


A CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED 
TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 















EMl2 PERSISTENT DEVICE UNSAFE 
THE DRIVE BECAME UNSAFE; DRIVE CLEAR TO THE DRIVE DID 
NOT CLEAR THE UNSAFE CONDITION. ~*~ PROGRAM WILL 
AUTOMATICALLY DEASSIGN THE DRIVE. THE DRIVE CANNOT 
BE ExERC ISED UNTIL THE UNSAFE CONDITION HAS BEEN 
EM13 OPERATION NOT COMPLETED WITHIN TIME LIMIT 


THE DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND 
AFTER THE OPERATION WAS INITIATED. 


EM14 UNIT WENT OFFLINE 
Te DRIVE WENT OFFLINE DURING THE pOTCATED OPERATION. 
(THE *MOL’ BIT BECAME ZERO.) mi.’ PROGRAM WILL AUTOMATICALLY 
DEASSIGN THE DRIVE. THE OPERATOR MUST REASSIGN THE DRIVE 
WITH THE *T’ COMMAND TO RE-INITIATE TESTING. 
EM15 NO RESPONSE TO PORT REQUEST 


THE PROGRAM IS TESTING A DUAL PORT DRIVE WHICH HAS NOT SWITCHED 
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TO THE REQUESTING PORT WITHIN 10 SECONDS AFTER PORT REQUEST 
. TO THE DRIVE FROM THE REPORTING PORT. 

EM20 HEADER CRC ERROR 
A HEADER CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
THE CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

EM21 § DATA CHECK ('DCK’) ERROR 
A DATA CHECK ERROR WAS DETECTED AT THE INDICATED SECTOR. 
THE FULL RETRY SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED 
FOR cote SECTOR IN ERROR IF THE ECC HARD ERROR (’ECH) BIT 

EM22 WRITE CHECK ERROR - DATA CHECK (’DCK’) SET 
A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK (*DCK’) BIT 
WAS SET. IF ‘ECH’ IS NOT SET, THE OPERATION WILL BE RETRIED 
UP TO 3 TIMES; IF THE ’ECH’ BIT IS SET, THE OPERATION WILL 
BE RETRIED UP’TO 16 TIMES. 

EM23 WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET ~ 

- A WRITE CHECK ERROR OCCURRED AND 'DCK’ WAS NOT SET. THE 

WORDS WHICH CAUSED THE ERROR ARE DISPLAYED IN THE ERROR 
MESSAGE. THE OPERATION WILL BE RETRIED 3 TIMES. 

EM24Y HEADER READ ERROR - ’FMT’ BIT DROPPED 

' @ WRITE DATA UR TE CHECK DATA, OR A READ DATA WAS BEING 

PERF ORNED ano a’ nER fe 
CONTENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED 3 TIMES. 

EM2S | HEADER READ ERROR - HEADER COMPARE (’HCE’) ERROR 


SIMILAR TO EM24, EXCEPT THAT THE ‘HCE’ ERROR BIT WAS 
SET INITIALLY. ‘THE OPERATION WILL BE RETRIED 3 TIMES. 


EM26 FORMAT ERROR (’FER’) 
FORMAT ERROR ocr ay THE HEADER WAS RE-READ, THE 
"HCRC’ BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL BE RETRIED 3 TIMES. 

EM27 HEADER COMPARE (’HCE’) ERROR 


SIMILAR TO EMC6 EXCEPT THAT THE ’HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


EM30 MISCELLANEOUS DRIVE ERROR 


‘ 


— 
> —— 
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EM31 
EM32 
EM33 
en4 


EMSS 


EM36 
EM4O 
EM41 


EM42 


EM43 


KO0e 
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THIS MESSAGE 3, G FOR a a WING ERROR BITS: 
"TXE’, *ROE’, "ILF’, IL 


OPERATION INCOPPLETE (’OPI’) ERROR 


alae INCOMPLETE ERROR OCCURRED AT THE INDICATED 


DRIVE TIMING (’DTE’) ERROR 


DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


PARITY (*PAR’) ERROR AFTER OPERATION STARTED 


THE *PAR’ BIT WAS SET WHEN THE OPERATION WAS COMPLETED. THE 
OPERATION WILL "Oe RETRIED 3 TIMES. ss 


WRITE CLOCK FAILURE (’*WCF’) 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


INVALID ADDRESS (’IAE’) ERROR 

AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
WRITE LOCK (’WLE’) ERROR 

A WRITE OPERATION WAS ATTEMPTED BUT THE DRIVE b> WRITE 
LOCKED. 


RH11 OR UNIBUS TRANSFER ERROR 
*TRE’ IS SET IN THE RH11 CONTROL REGISTER AND NO DRIVE 


ERROR HAS OCCURRED. THE OPERATION ue BE RETRIED 3 
ae ae THE ERROR WAS CAUSED BY ’DLT’, *UPE’, *MXF’, 


BUS ADDRESS OR WORD COUNT INCORRECT 


- NO DRIVE ERROR OCCURRED BUT EITHER THE BUS ADDRESS INDICATES 


THAT AN INCORRECT NUMBER OF WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO. 


DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED 
NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE . 


CAN’T MATCH DATA READ WITH A PATTERN 
THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
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PATTERNS. 
Em44 ERROR BIT(S) SET, BUT NO CRROR SIGNALED BY THE RHI1 

THE OPERATION COMPLETEL NORMALLY; HOWEVER, THE PROGRAM 

FOUND EITHER ERROR BITS IN THE ROOW SEY OR ERROR Bits. IN 


EM4S ECC LOGIC FAILURE 











THE CONTENTS OF EITHER THE ECC POSITION REGISTER (RPEC1) 
THE CONTENTS OF ECC PATTERN REGISTER (RPEC2) ARE NOT 
VALID. THE POSITION REIGSTER IS EITHER’O’ OR > 10041 (8) 






OR THE PATTERN REGISTER CONTAINS ZEROS. 
EM46 BUS ADDRESS OR WORD COUNT NOT CONSISTENT 
‘THE PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 
EMSO § SEEK INCOMPLETE OR OFF CYLINDER ERROR 
THE DRIVE SIGNALED EITHER ’SKI’ OR ’OCYL’ ERROR BITS. 
EMS1 | PROGRAM DETECTED POSITIONING ERROR 
A HEADER COMPARE ERROR OCCURRED (*HCE’); HOWEVER, WHEN THE 
PROGRAM EXAMINED THE HEADER OF THE SECTO 
FOUND THAT THE CYLINDER FIELD DID NOT AGREE WITH THE CONTENTS 
OF ’RPCC’ OF THE DRIVE. THE DRIVE WILL BE RECALIBRATED. 
EM60 DEVICE UNSAFE 


THE INDICATED DRIVE UNSAFE ERROR eens THE ERROR WAS 
CLEARED BY A *DRIVE CLEAR’ INSTRUCTION 


















7.2 DETAIL ERROR LINES 
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 






TT:TT:TT (DESCRIPTION OF ERROR) 


’TT: TT: TT’ IS THE TIME SINCE THE PROGRAM 
WAS STARTED. TT:TT:TT IS GIVEN IN HOURS: 
MINUTES: SECONDS. 
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"PRESENT ORDER = XXXX PREVIOUS ORDER = YYYY’ 
MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW: 


a = UNLOAD (OCTAL 3) 
K =_ SEEK (OCTAL §) 


“COCTAL 1) 
RDHD - READ HEADER & BATA (OCTAL 73) 


(DISPLAY OF THE RH11/RPO4/S/6 REGISTERS IN TWO GROUPS: 

RPCS1,RPCS2, RPDS! RPERIRPERe, RPERS,RPECl, & RPEC2 FORM THE FIRST 
UP: ALL’ THE OTHER REGISTERS ARE IN THE SECOND GROUP. 

Ir oui0s> I IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 


THE ABOVE LINE WILL BE TYPED IF THE ERROR OCCURRED DURING 
THE NON-DATA TRANSFEP PART OF THE OPERATION. 


** ERROR AT BAD TRACK/SECTOR’ 

THE ABOVE LINE WILL BE PRINTED IF A DATA ERROR OCCURES AT AN ADDRESS 
ON THE PACK WHICH THE OPERATOR HAS IDENTIFIED AS BEING BAD. PARAMETER 
"NOTPRT’ MUST BE O FOR THE ERROR TO BE REPORTED. 

A WORD CALLED "STATUS’ IS DISPLAYED WITH THE RPOW/5/6 REGISTERS. THE 


CONTENTS OF THIS WORD IDENTIFY HOW THE ERROR WAS PROCESSED BY THE 
RPO4/5/6 DF DRIVE HANDLER ROUTINE. THE BITS IN THIS WORD ARE ENCODED 


BIT # MEANING IF BIT IS °1’ 


1S ERROR OCCURRED 


DONE (B1T07=0), BITS 14-9, 2, 1 SPECIFY TYPE 
DONE (BITO7=1); BITS 6-3 SPECIFY TYPE 

14 ORIVE IS OFFLINE | 

12 PERSISTENT UNSAFE CONDITION EXISTS 









N02. 
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11 UNCORRECTABLE PARITY ERROR OCCURRED 











10 FATAL PARITY ERROR OCCURRED. MASSBUS CLEAR 
WAS PERFORMED 


"9 openalicn NOT cre eo WITHIN 1 onen 
MASSBUS CLEAR PERFORMED. ALL OTHER 
OUTSTANDING OPERATIONS WERE RESTARTED. 
7 DONE - OPERATION COMPLETED 
6 DATA ERROR OCCURRED DURING THE TRANSFER 


5 ERROR OCCURRED WHILE SEARCHING FOR THE * TRANSFER’ 
SECTOR OR DURING RECALIBRATE OR OFFSET COMMANDS 


CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN AUTCMATIC 
RECALIBRATE SEQUENCE 


4 PORT REQUEST TIMEOUT 
NON-EXISTENT DRIVE REQUESTED 

















ERROR AT CXXX TYY SZZ PREV ADDR = CUUU TVV SWW 
THE ACTUAL ADDRESS OF THE ERROR SECTOR AND THE PREVIOUS 


DISK ADDRESS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
SECTOR ADDRESSES ARE IN DECIMAL. 


PRESENT ADDR = CXXX TYY SZZ PREV ADDR = CUUU TVV SWW 

THIS LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS DETECTED; 
THE PREVIOUS ADDRESS IS ALSO GIVEN. CYLINDER, TRACK, & SECTOR 
ADDRESSES ARE GIVEN IN DECIMAL. 


LINE 5 


START CYL = XXX END CYL = 


is he’s d0GNT {FTES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
Leal NATION CYLINDER. CYLINDER ADDRESSES ARE IN 








‘ Suances 
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- START CYL = XXX END CYL = YYY ACTUAL CYL = 222 
THIS LINE IDENTIFIES THE STARTING CYLINOER OF AN IMPLIED SEEK, 
He DESTIN NATION CYLIN AND THE CYLINDER THE DISK ACTUALLY 
oie DAT. CYLINDER OER ARE SSeS ARE iN DECIMAL. 


LINE 7 « 


RPBA = XXXX RPWO = YYYY 
THIS LINE GIVES ey Rov "feist BUFFER ADDRESS 


REGISTER AND THE RH11 WORD Punt ISTER. THIS LINE IS 
NOT PRINTED IF Ecos) #s NOT § 
LINe & 


START CYL = XXX START TRK = YY START SECTOR = 22 . 


TH : oti TORT TES THE STARTING DISK ADDRESS OF THE PRESENT 
OPERATION. CYLI TRACK, AND SECTOR VALUES ARE DECIMAL. 


RPDR = XXXX RPCA = YYYY 
ES THE a tigst OF THE RPOY TRAC 
TER AND 


INE GIV « 
SS REGIS THE CONTENTS OF THE DESIRED CYLINDER 
ee? S REGISTER. THIS LINE IS NOT PRINTED IF SW<OS> IS NOT 
LINE 10 


BUFFER ADDR = XXXX SIZE = YYYY ACTUAL NUMBR WRDS XFRD = 2222 


THIS LINE GIVES THE STARTING ADDRESS OF THE BUFFER USED FOR THE 
CURRENT DATA TRANSFER OPERATION, ITS SIZE, AND THE ACTUAL NUMBER 
OF Are, TRANSFERED. THE STARTING ADDRESS OF THE BUFFER is IN 


D Be 
i 


GOOD DATA = XXXX BAD DATA = YYYY SECT POS = 222 

THIS LINE GIVES THE GOOD DATA, THE ACTUAL DATA FROM THE DISK 
AND THE LOCATION IN THE SECTOR OF THE ACTUAL DATA. THE SECTOR 
POSITION IS IN DECIMA 


LINE lz 








Ho, 
y. SE3 0027 
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-) 
ad 
HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX 


Taye | bine gives THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 


RPEC] = XXXX RPEC2 = YYYY 


THIS LINE WILL BE PRINTED AFTER A a RETRY OF A SECTOR. 
WHICH BECAME ECC CORRECTASLE DURING RETRY 


ECC CORRECTABLE WITHOUT OFFSET 2 
THE SECTOR IN ERROR IS ECC CORRECTABLE: NO RETRY ATTEMPTS ARE 
NECESSARY. 


THE SECTOR IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSET VALUE. 


LINE 16 


ECC CORRECTABLE AT OFFSET X MICRO-INCHES 


THE SECTOR IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


LINE 15 an 
READ CORRECTLY AT OFFSET xX MICRO-INCHES 
| 
| OFFSET 


| R CORRECTED ON X RETRY 
| THE OPERATION WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


UNCORRECTASLE AFTER X RETRIES 


| THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


SS ee - —_— ee ee ee ee ee a i we ee ee 
: ———— = --<- _ ee eee 
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DIFFERENT ERROR DURING RETRY 


WHILE THE PROGRAM iN Pee BArtS RROR 
F THIS Li nena ED, T 


FFERENT ¢ RRED. 
PRINT D (SE as 


ish 
LI/RPOY REGISTERS WILL 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 
LINE 21 


TOTAL COMPARE ERRORS = XXXX 


THIS LINE GIVES THE vo DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMA 











THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 





ECC CORRECTION RESULTS 
THE PROGRAM Syd, 20 ECC_CORRECTION AND THE RESULTS ARE REPORTED. 
ADDRESS IN MEMORY OF 


THE THE WORD(S) IN ERROR ARE GIVEN, THE WORD(S) 
BEFORE CORRECTION AND THE WORD(S) AFTER CORRECTION ARE PRINTED. 


ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 
THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR *DCK’ ERRORS 


ally ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
RETR Lay XXX* IS THE WORD OFFSET VALUE FROM *RPEC1’ AND IS IN 


oO a 
| 4 
a 
tf 
£ 


a ee ee 
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Ere’r WAS NOT IN THe DATA READ - 
ECC CORRECTION CAN’T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 






















CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE? 


IF SW<O3> IS SET, THE SECTOR WHICH GAVE THE 'OCK’, ‘DTE’ OR, 
*WCF* ERROR OR ‘HARD’ DATA CHECK ERROR IS PRINTED: THE 
CONTENTS OF THE SECTOR FOLLOW THIS LINE. 





ORDERS: WWW ERRORS: X WRDS XFR: YYYY WRDS READ: 2222 
THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 





“ORDERS” IS THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE 
WHICH REPORTED THE ERROR. 


"ERRORS IS THE TOTAL ERROR COUNT FOR THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 


*WROS XFR* IS THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY 
THE DRIVE. 


"WRDS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE ORIVE. 








oe 





ORDERS: WWWW TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI, OCYL ERR = 2Z 
THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


*ORDERS’ IS THE TOTAL NUMBER OF ORDERS GIVEN 70 THE DRIVE WHICH > 
REPORTED THE ERROR. 


*TOTAL SEEKS’ IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
BY THE DRIVE. 


“TOTAL POS ERR* IS THE TOTAL NUMBER OF POSITIONING ERRORS WHICH 
THE PROGRAM DETECTED FOR THE DRIVE. 


"TOTAL SKI,OCYL ERR’ IS THE TOTAL NUMBER OF ’SKI’ OR ‘OCYL’ ERRORS 
SIGNALED BY THE DRIVE. 
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8. PROGRAM DESCRIFTION 


8.1 PROGRAM OPERATION 


WHEN THE PROGRAM IS STARTED, ALL TABLES AND 

eee Obch ARE a oe INITIALIZED. THE PARAMETERS WHICH ARE 
ATOR TT Y CONTROL te CHECK _ FOR VALIDITY AND 

CONSIST NCY. RH11 IN EFRON We rit *ITE*) IS SET, TTY KEYBOARD 

INTE T ws 33 kW 


WHEN THESE ACTIONS HAVE BEEN CO MPLETED, THE PROGRA 
ay he TR COMPLETE’. COMMAND’ ENTRIES WILL NOU BE ACCEPTED 


THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 


1) ORIVES TO ASSIGN/DEASSIGN 

2) PERFORMANCE SUMMARY TYPEOUT REQUESTS 

3) DRIVES REQUIRING ee INITIATION, BUFFER ASSIGNEMENT, 
OR PARAMETER SELECTION 

4) DRIVES COMPLETING CURRENT OPERATIONS. 


THE PROGRAM CONTINUES SCANNING iTS TABLES UNTIL AN ENTRY IS FOUND. 
IN THE CASE OF THE PROGRAM AT INITIAL START, THE FIRST ENTRY WILL 
BE MADE BY THE OPERATOR WHEN A DRIVE IS ASSIGNED ( COMMAND) . 


WHEN A DRIVE IS mK THE 0 gy pry ROUTINE VERIFIES THAT THE 
DRIVE i PRESENT AN RPOY/S/ the RENO NAME THE ASSIGNMENT ROUTINE 
THEN ISSUES A READIN B PRESET’ I RSTRUCT ON, SETS "FMTe2", AND ISSUES 

A *RECALIBRATE’ INSTRUCTION. 


PARAMETERS FOR THE OPERATION ARE SELECTED aND A BUFFER IS ASSIGNED. IF 
THE OPERATION IS A WRITE OR WRITE CHECK ORDE 

WILL BE FILLED WITH THE SELECTED PATTERN. CUATTE 
ISSUED AFTER EACH WRITE ORDER. THE URI TE CHE TER US i 
PARAMETERS SELECTED FOR THE PRECEEDING WRITE SRO CONTROL 
IS THEN PASSED TC THE COMMAND INITIATION ROUTINE. 


THE COMMAND INITIATION ROUTINE FIRST LOOKS AT THE CYLINDER ADDRESS OF 
THE REQUESTED OPERATION. IF THE ORIVE Re! SEEK TO ANOTHER CYLINDER 
PERFORM THE atl THE PROGRAM ISSUES A SEARCH INSTURCT ON" 

TO THE DRIVE eB "TARGET? SECTOR WHICH {5 8 SECTORS EARLIER 

THAN * TRANSF aie (THIS ALLOW PROGRAM TO INITIATE 
OPERATIONS ON BNO THE R_OTHER 
DRIVES, ARE SEARCHI 


28-APR-76 17:08 PAGE 30 


























HE S DRIVE _AND 
CCHPARES THE POSITION OF THE DISK WITH THAT OF THE DESIRED SECTOR. 


| IF OTHER DRIVES ARE WAITING ON CYLINDER, THEY ARE ALSO CHECKED. THE 
PROGRAM THEN ISSUES THE REQUESTED ORDER TO THE DRIVE NEAREST ITS 
TRANSFER SECTOR. THE DRIVES NOT SELECTED WILL HAVE ANOTHER SEARCH 
INITIATED. IF A DRIVE IS NOT SELECTED FOR TRANSFER AFTER THREE 
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REVOLUTIONS OF ITS DISK, IT ws GIVEN PRIORITY OVER DRIVES WHICH HAVE 
NOTE BEEN ON CYLINDER AS LONG 


SEE" TAR BM RNRER RRRSE EA Ts BAL PTETES FoR RLY ENCE BANVES® 


IF THE OPERATION HAS BEEN a NORMALLY, THE ep DRIVE REGISTERS 
ARE CHECKED TO VERIFY THAT NO ERROR BITS "SET; THE RH11 BUS ADDRESS 
Ae sag aren i ogee REGISTERS ARE CHECKED TO VERIFY T THAT THE 

WORDS HAVE BEEN TRANSFERED AND THAT THE TWO REGISTERS 
Bre ors] a NTH ACH OTHER; AND IF THE QROER ues A_READ_ORDER, THE 

A BUFFER IS COMPARED. WHEN THIS SEQUENCE I e LETED, THE DRIVE 

is RETURNED TO THE ASSIGNED, INACTIVE LIST. THE PROGRAM THEN 
INITIATES. : DATA TRANSFER ON A AWAITING. DRIVE AND RESELECTS AND 
REINITIATES: ANOTHER OPERATION ON THE RELEASED DRIVE. 


ERRORS WHICH OCCUR ARE PROCESSED IN THE FOLLOWING ORDER. MULTIPLE 
ERRORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED. 


A. ERRORS REPORTED FOR OPERATIONS WHICH ‘HAVE NOT COMPLETED NORMALLY. 


PERSISTENT UNSAFE pa EN - EMle 
UNCORRECTABLE ews ARITY ERROR - EM1O 
FATAL Loe BA ARITY ERROR 


OPERATION fe eens WITHIN TIME LIMIT - EM13 














UNIT WENT OFFLINE. = | 
B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. ; 


CORRECTABLE UNSAFE - EMEO 

DRIVE TIMING ERROR - EM3e2 ‘. 
DATA CHECK ERROR - EMel 
WRITE oo WITH DCK Ba - EMee 

HEADER CRC ERR Oe 

FORMAT ERRORS ENeY 

HE COMPARE ERRO TENS, EMe? 

PROGRAM DETECTED POSITIONING ERROR - EMS! 

SEEK INCOMPLETE OR OFF Cy LINER ERROR - Enso 

WRITE CHECK WITHOUT ’DCK’ e3 

RH11 OR UN : ee So eeren ERROR - EM4O 


"PAR? ERROR - EM33 


* TRE’ Bait ~ EMSS 
"WLE’ ERROR - EM36 
MISCELLANEOUS DRIVE ERROR - EM30 


C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADDRESS OR WORD COUNT INCORRECT - EMY 
DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED - EM42 
CAN’T MATCH DATA READ WITH A PATTERN 

ERROR BIT(S) SET. BLT NO ERROR SIGNALED BY THE RH11 - EN4Y 
ECC LOGIC FAILURE - EM4 















me 






HO3 
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BUS ADDRESS OR WORD COUNT NOT CONSISTENT - EM46 
8.2 DUAL PORT OPERATION 
- DUAL_PORT OPERATION IS NEARLY IDENTICAL TO THE OPERATION 4 a 


IN SECTION 8.1. THE DIFFERENCES ARE IN COMMAND SEQUENCE INIT 
AND ORDER TERMINATION. 








RIBED 
IATION 






TIORIVE PROGRAM RECEIVES 


I 
a. ORIVE IS 





5 = 


re AND OF 
ope i: DRI N IS ELE THIS WIL 
DRIVE IS He ne THE OTHER ae hk 
REQUEST’. THE PROGRAM CHECKS ’ 
ILABLE AS INDICATED BY THE ’DVA’ B 
NITIAT THE NORMAL ( 


oa 





C 
COMMAND SEQUENCE 
I ABOVE}. 


x 

we 

re 
zuw-4 
=m 






BO 






IVE HAS 
THE 20 SECOND INTERVAL 
¢ ROR. NORMAL LY 






22 
= 
a 
S 








J Y 
Q Y), THE OTHER PROCESSOR WAS UNABL E TO PROCESS THe DRIVE 
TER IT HAD REQUESTED THE DRIVE. THE OPERATOR MUST 
WHAT THE OTHER SYSTEM IS DOING At ALL TIMES TO INTERPRET THE PORT 
RELATED ERROR MESSAGES PROPERL 


AFTER A DRIVE HAS COMPLETED AN OPERATION, THE PROGRAM WILL STORE 
THE REGISTERS AND TSSUE A 'RELEASE’ TO THE DRIVE: IF THE OPERATION 
TERMINATED WITH AN ERROR, THE DRIVE WILL NOT BE RELEASED UNTIL 
ERROR PROCESSING HAS BEEN COMPLETED. 


SINGLE PORT DRIVES, DRIVES WHICH 

ARE IN NEUTRAL BUT NOT BEING EXERCISED BY THE OPPOSITE PORT ARE STILL 
TREATED AS DUAL PORT DRI *, IN THAT A RELEASE COMMAND IS_ISSU 

AT _THE END OF NORMAL ORDER P ROCESSING OR AT. THE END OF ERROR MBROCESSIiic. 
A RELEASE COMMAND ISSUED UNDER THESE CONDITIONS HAS NO FUNCTIONAL: 
EFFECT ON THE OPERATION OF THE DRIVE. 


8.3 SELECTION OF OPERATION VARIABLES 


A. rere ADDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 
MINSEC’ AND *MAXSEC’. TRACK ee hee Be IS RANDOM 






T VALUES IN ’MINTRK’ CYLINDER ADDRESS 
SELECTION IS RANDOM BETWEEN ’MINCYL’ *MAXCYL’. IF A 
SS IS GREATER T THE CORRESPONDING MAXIMUM ADDRESS, THE 


AD RRES I 

PROGRAM WILL EXCLUDE at. ADDRESSES BETWEEN MAX’ AND ’MIN?’ FROM 
THE SELECTION. FOR EXAMPLE: IF 'MINTRK’ IS 18 a *MAXTRK® IS 
1S 5, THEN TRACK ADDRESS SELECTION WILL EXCLUDE TRACKS 6 - 17 
FROM’ THE SELECTION AND SELECT AN ADDRESS FROM AMONG ABORESSES 
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B. we BUFFER ie , 1S RANDOM SELECTED BETWEEN 4 (10) = AND THE 
UE IN THE SIZE fen te IS WEIGHTED TO ENSURE 
THAT AT LenS] 4 “iuorts ARE WRITTEN IN THE DATA AREA OF THE LAST 
SECTOR. THIS IS NECESSARY AS THE PROGRAM REQUIRES 4 LOCATIONS 
IN THE DATA PORTION OF THE SECTOR TO BE ABLE TO MATCH THE DATA 
TC A PATTERN FOR DATA COMPARISON PURPOSES. 


C. THE DATA WRITTEN IS RANDOMLY SELECTED AMONG THE 15 STANDARD - 
PATTERNS. THE pe ORES IN THE HEADER (WHEN PERFORMING A WRITE 
HEADER 8 DATA ORDER) ARE ZERO FILLED. THE PROGRAM EXPECTS TO 
FIND THAT THE KEYWORDS ZERO. 


D. THE ORDERS ARE SELECTED RANDOMLY. WRITE CHECK DATA AND WRITE 
CHECK HEADER & DATA ORDERS ~ PERFORMED ONLY IF THE PREVIOUS 
ORDER WAS THE APPROPRIATE DATA ORDER. IF THE ag Ht 










N THE PR 
WRITE HEADER & DATA ORDER THE BUFFER SIZE IS FORCED TO 
3010); THE. Pr PROGRAM WILL NOT PERFORM A MULTI-SECTOR FORMAT 


E. THE FIRST mee, PERFORMED AFTER A UNIT IS ASSIGNED WITH 
*T’,_*W’, OR ’R’ COMMAND IS NOT RANDOMLY SELECTED. THE PARAMETERS 
FOR’ M FIRST BPERRT ION ARE THE MINIMUM OR STARTING VALUES OF 









8.4 DATA PATTERNS 


THE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE 
WHEN A ORDER IS SELECTED. THE ENTIRE pila IS FILLED WITH 
Ke sebec ley PATTERN. WHEN DATA IS READ FROM THE DISK, ORO + aes 







ERNS. 
PROGRAM inaNOEC“ 1 -DZR Peng WILL ACCEPT ALL ZE 
AND ALL ONE’S PA HOUEVER L ZERO’S AND ALL ONE’S 
PATTERNS ARE NOT niente, BY THE’ EXERCTSER PROGRAM. 


PATTERN °8’ IS DEFINED AS THE “WORST CASE’ PATTERN. 













leSeSe 170360 133333 





7777 (170000 177777 135673 
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160000 BOOS 146314 OS2eS2eS 007417 O2645S 165555 
O37777 140000 177777 156735 leSeSe 170360 151322 133333 
077777 100000 OO00000 167356 OS2eS5e5 007417 Oeb4SS5 165555 
177777 000000 170360 151322 133333 












1 
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ERRORS DETECTED: 0 


®, DZRIDA’SOL=DZRIDA. DOC 
RUN-TIME: & 11 0 SECONDS 
CORE USED: 3k 


KO3 


me + = ee =. 


SEG 0035 
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15 Best 0 ONAL SWITCH SETTINGS 
gr ae Lgorts 

150 ISTERS 

196 ROY /S7e REGISTERS 

a 2 pELVeR COMMANDS 







425 STARTING ADDRESS(ES) 
430 ACT11 HOOKS 















449 COMMON TAGS 
sus COMMON PARAMETERS 
53s VALUES FOR FIRST OPERATION 
618 TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
831 DATA PATT oe 
1126 ERROR POINTER TABLE : 
1187 SETUP AND INITIALIZATION ROUTINE 4. 
1198 INITIALIZE THE COMMON TAGS 
1638 GET VAL VALUE FOR SOFTWARE SWITCH REGISTER ' 
a) ERROR PRE ScaGe GENERATION ROUTINES 
32 GENERAL SUPPORT SUBROUTINES 
609 MACRO ROUTINES 
501i ERROR HANDLER ROUTINE 
5053 ERROR MESSAGE TYPEOUT ROUTINE 
5101 TYPE ROUTINE 
5172 BINARY TO OCTAL (ASCII) AND TYPE 
5550 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
5318 Y INPUT ROUT 
5427 RANDOM NUMBER GENERATOR ROUTINE 
S464 SAVE AND REST ORE RO-RS ROUTINES 
5510 DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
5573 DOUBLE E LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
5636 Tea TABLE 
E64 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 
7983 DATA, CONTROL, & STATUS BLOCKS 
7247 ERROR MESSAGES 
7805 TELET 
2122 ROUTINE TO SIZE MEMORY 
8153 BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 


8217 CK.NUM - CHECK NUMBER (OCTAL) 
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ECOPYRIGHT ¢0o 1475” RPOW/S/6 MULTI-DRIVE EXERCISER 
DIGITAL EQUIPMENT CORP. 
— NARD, MASS. 01754 


tS PROGRAN BY C. HESS 


*% 
THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
j HPACKAGE (MAINDEC-11-DZQAC-C1),MAR 24, 1976. 


‘SBTTL OPERATIONAL SWITCH SETTINGS 





:% 

ii SWITCH USE 

: ¥ 15 HALT_ON ERROR 

x 13 INHIBIT ERROR TYPEOUTS 

:% 10 BELL ON ERROR 

1% 7 DISPLAY ALL DATA COMPARE ERRORS 

x & DON’T CHANGE PARAMETERS (LOOP ON PRESENT VALUES) 

:# 5 A. PARTIAL REGISTER DISPLAY RROR 

*% B. NO ECC CORRECTION RESULTS DISPLAYED IF ERROR 

:* 4 A. DO NOT CHECK FOR MAXIMUM ERROR COUNTS 

x B. DO NOT DROP DRIVE WHEN NORMAL END OF TEST REACHED 
:* 3 A. DISPLAY ERROR SECTOR IF 'DCK’, ’D OR *WCF’ ERROR 
i B. DISPLAY SECTOR IF *DCK’ ERR UNCORRECTABLE AFTER 

:* C. IF DATA COMPARE ERROR & SW7 SET, DISPLAY 

x REMAINDER OF BUFFER 

: ¥ a A. DON’T TYPE SUBSYSTEM STATUS. WHEN PROGRAM STARTED 

¥ B. DON’T TYPE PERFORMANCE SUMMARY 

i 1 INHIBIT DATA COMPARSION AFTER READ ORDERS ; 
3% READ ONLY MODE 





0 
-SBTTL BASIC DEFINITIONS 
ee, eee OF THE STACK POINTER *** 1100 *%* 


STAC 
:;BASIC DEFINITION OF ERROR CALL 


-EQUIV EMT, ERROR 
“EQUIV I0T;SCOPE ;;BASIC DEFINITION OF SCOPE CALL 


j NESE) EOS DEFINITIONS 








AT= 3 CODE FOR HORIZONTAL TAB 

LF= 12 “CODE FOR LINE FEED 

CR= 15 t CODE FOR CARRIAGE RETU 

CRLF= 200 CODE FOR CARRIAGE RETURN-LINE FEED 
Pe ny 177776 ‘}}PROCESSOR STATUS WORD 

STKLMT 177774 $3 STACK LIMIT REGISTER 

PIRG= RAM INTERRUPT REQUEST REGISTER 
DSWR= 7787 Ba oar SuITCH REG is TER 

DDISP= 155 ? ;HARDWARE DISPLAY REGISTER 


;*GENERAL PURPOSE REGISTER DEFINITIONS 








ee ee 
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D7aID. 513 BaSIo DEFINITIONS 
ze o90900 RO= “uy : ;GENERAL REGISTER 
5? 009091 Ris “1 :;GENERAL REGISTER 
58 3098 Re= “2 :: GENERAL REGISTER 
5 9005 R3= “3 ::GENERAL REGISTER 
éC RY= “4 ::GENERAL REGISTER 
5! 899505 RS= “S :s GENERAL REGISTER 
63 000008 R= “6 ::GENERAL REGISTER 
$3 600007 Ros @ ::GENERAL REGISTER 
4 .EQUIV R&,SP ::STACK POINTER 
$5 “EQUIV R7°PC ::PROGRAM COUNTER 
5? -#PRIORITY LEVEL DEFINITIONS 
gs ogs000 PRo= »;PRIORITY LEVEL 0 
53 950040 PRI= :: PRIORITY LEY Li 
é 900100 PRe= Ss 100 ;;PRIORITY LEVEL e 
71 500140 PRJ= «140 ::PRIORITY LEVEL 3 
7 PRU= 209 ::PRIORITY LEVEL 4 
33 §00249 PRS= = 340) ::PRIORITY LEVEL 5 
74 900300 PRE= -:3000 :PETORITY LEVEL & 
3 600340 PR7= sO ::PRIORITY LEVEL 7 
77 #"SWITCH REGISTER” SWITCH DEFINITIONS 
73 00 SwiS= 100 
73 540500 Swi4= 40000 
36 0 SwWi3= 200900 
2] 010909 Swi2= 10000 
§2 609 Swli= 400 
3 eiela Swid= 2000 
34 601090 Swo9= 1000 
Sc 500400 Swog= 400 
ze 990200 Swo7= 200 
57 099109 SwOb= 100 
Sg 900040 SwoS= 40 
§$ 020 Swo4= = 20 
36 500010. Swo3= 10 
31 004 SwO2= 4 
32 995082 SWOl= 2 
33 600: SwOoo= 
33 EQUIV §WO9,SW9 
$s EQUIV SwOe’ 
. & EQUIV SwO7;Sw7 
97 EQUIV SwOb; 
3 EQUIV $wWOS;S 
36 EQUIV SWO4'Sw4 
100 EQUIV 5wO3; 
10} EQUIV SwOe, 
ide EQUIV SWOl; SWI 
if: EQUIV §wO0;Swo 
10 
105 -#DATA BIT DEFINITIONS (BITOO TO BITIS) 
106 100000 61T1S= 10000 
157 940000 BITl4= 4000 
iDe 620000 -BIT13= 2000 
105 BlTle= 10000 
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;#BASIC “CPU” TRAP VECTOR TE aur 


ERRVECS 4 


T = 64 
PIRQVEC=240 


TIME OUT AND OTHER ERRORS 
i {RESERVED AND ILLEGAL INSTRUCTIONS 


9 


3 TRAP 
;BREAKPOINT TRAP (BPT 
i INPUT /QuTPUT TRAP 107) #ESCOPE RS 


:P FRAIL 
H EMULATOR FRAP (EMT) *#ERRORS# 
:;"TRAP™ TRAP 
s3TTY KEYEORRD VECTOR 


fs RERELAEAE SELLA SE EAAELARELERELELLLAAAL ARAL RELFRTARALERERARERERE 


-SBTTL RH11 REGISTERS 


5 RRRERRARERES SLES EERLEEL LEAL REA RERRRA RELA RERELAARARREAE SE EREEES 
;CONTROL AND STATUS REGISTER 1 (RPCS1) 


IE= 100 
RDY= 200 
Alg= 400 
Al7= 1000 
PSEL= 2000 
MCPE= 20000 
TRE= 4000: 


0 
;SC= 100000 


tAeAGY BIT #7 a (BIT #6) 
HIGH ORDER Bus ADDRESS BIT (BIT #9) 
HIGH pa BUS ADDRESS BIT ‘BIT 89) 


ECT (BIT #10) 
;MASSBUSS PARITY ERROR (grt 812) 
TRANSFER ERROR (BIT 

; SPECIAL CONDITION (att #15) 
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NO-11-D2RID-A, REOY SG MULTI-DRIVE EXERCISER 28-APR-76 17:04 PAGE S SEO CO41 
DERID.519 *-RH1L REGISTERS : 
164 sWORD COUNT REGISTER (RPWC) 
185 : (EACH BIT IS CALLED BY BIT NUMBER) 
- 
16? ;BUS ADDRESS REGISTER. (RPGA) 
ibs iste Bf 3 fs RaiPL BY BIT NUMBER) 
170 sCONTROL AND STATUS REGISTER 2 (RPCS2) 
172 0001 -USiz UNIT SELECT (BIT #0) 
173 990092 -US2= 2 !UNIT SELECT (BIT #1) 
174 5004 ysd= : UNIT SELECT (BIT #2) 
175 19 BAI= 10 !BUS ADDRESS INCREMENT INHISIT (BIT #2) 
176 Pat= 39 :MASSBUS PARITY TEST (BIT #4) 
17? 900040 CLR=e 40 ‘CLEAR (BIT #5) 
178 500100 IR= 100 ‘INPUT READY (BIT #6) 
173 900290 R= 590 ; OUTPUT READY (BIT #7) 
isd 990409 MPE= 409 ASS BUS PARITY ERROR (BIT #2) 
181 691000 MxF= 1000 MISS iy TRANSFER ERROR (BIT #9) 
182 952000 PGE= 2000 :PROGRAM ERROR (BIT #10) 
183 000 NEM= 4000 !NON EXISTENT MEMORY (BIT #11) 
185 010009 NED= 10000 {NON EXISTENT DRIVE (BIT #12) 
185 929006 UPE= 20000 UNIBUS PARITY ERROR (BIT #13) 
} 940000 wees 40000 !WRITE CHECK ERROR (BIT #14) 
ig 109909 DLT= 100000 ‘DATA LATE (BIT #15) 
188 sDATA BUFFER REGISTER (RPOB) 
130 ‘(EACH BIT IS CALLED BY BIT NUMBER) 
133 Ss RRESEAAALAALAA RARE SLRARFESELAR SLAF LAA LARALARERAAAERALALELAAFLTALALR 
13 SBTTL RPOW/S/& REGISTERS 
137 : 5 RHRAAAAAELEAELA LA RLALLA RELA LAL AL LALALRARELALARLAARLFLSLELEREFKE 
135 sCONTROL AND STATUS 1 REGISTER. (#00) 
201 90001 GO= 1 :GO BIT (BIT #0) 
202 alulelalur- Fis 2 “FUNCTION CODE BIT #1 
203 059604 Fos 4 FUNCTION CODE BIT #2 
204 990010 F3= 19 ‘FUNCTION CODE BIT #3 
305 900920 Fus 20 SFUNCTION CODE BIT #4 
Fis’ N9°540 Fos 40 :FUNCTION CODE BIT #5 
| 207 600 DvA= 4000 :DEVICE AVAILABLE (BIT 811) 
| 05 DRIVE STATUS REGISTER (RPDS1) (#01) 
| E11 OFS= 1 | ORIVE FORWARD S"/SEC. (BIT #0) 
| B12 o50002 bFF20= 2 : DRIVE FORWARD 20"/SEC. (BIT $1) 
| 633 000004 O1cB= 4 DRIVE TO INNER GUARD BAND (BIT #2) 
| B14 000010 GRV= . 10 GO REVERSE (BIT #3) 
| Els 900020 OLe4= 20 DIFFERENCE LESS THAN 64 (BIT #4) 
| ple 990040 C&l= 40 DIFFERENCE EQUALS 1 (BIT #5) 
Beaty 000108 We — 100 :VOLUME VALID (BIT #6 
| 
| 
























a | 
He 
FoR 


wue-Owm - 


ae en re 
r 





ap 
2 


ror 
= 


furururm 


furururul 
“oul 


purer rururury 
(DOD IOUT 


RJD-A, RPOY’S’6 MULTI-DRIVE EXERCISER 
RPOY’S’“6 REGISTERS 


DESIRED SECTOR/TRACK ADDRESS REGISTER (PDA) (#05) 
; (EACH BIT IS CALLED BY BIT NUMBER) 


one TYPE REGISTER (RPOT) (#06) 


MACYL1 27(65S) 


100000 
;ERROR REGISTER #01 (RPERI) (#02) 


40000 
100000 
;MAINTAINABILITY REGISTER (RPMR) (803) 


4 
1 
2 


40 
200 


0 
0 
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SEG C042 


DRE READY (BIT #7) 
ive Pee P ESENT (BIT #8) 
ita eecro Trans? ERRED (BIT #10) 

eblon ors fae 

EROS TIONING. oF marion Th in PROGRESS (BIT #13) 


ATTENTION ACTIVE (BIT #18) 


TIMING FRR 17 #12) 
sae on ea (BIT #13) 
DRIVE UNSAFE (BIT 
:DATA CHECK ERROR Bit 15) 


T @l 
3 IT #2 
; MAINTAINAB ECTOR CLOCK (BIT #3) 
raies 3 IT #4) 
INTAINAB RITE < (OTT aS 
'MAINTA NABILITY SYNC DETECTED (BIT 87) 


iDEVIGE T (BIT a1) 
:DEVICE 2 (BIT #2) 
;DEVICE 3 (BIT #3) 
‘DEVICE 5 (BIT 4) 
;DEVICE & (BIT #6) 
;DEVICE 7 (BIT #7) 








DZRID.919 








SSBNeneRosee 





WWOIGG WGI) 
TU & 0b = 8 8 





WWM OWO NOU £m. 


forurorore 





WIG) 


ee 


MO-11-DZRJD-A, RPOY s/t MULTI-DRIVE EXERCISER 
RPOY/S/S REGISTERS 


0 
100000 


MACY11 27(65S) 
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EXTl= 1 sEXTENSION 1 (BIT #0) 
EXT2= 2 -EXTENSION 2 (BIT #1) 
XT4=s 4 ‘EXTENSION 3 (BIT #2) 
EXT1G= 10 ‘EXTENSION 4 (BIT #3) 
EXT2O0= 20 :EXTENSION S (BIT #4) 
EXT4O= 49 ‘EXTENSION & (BIT #5) 
Scl= 100 :SECTOR COUNT FIELD O (BIT #6) 
SC2= 200 :SECTOR COUNT FIELD 1 (BIT #7) 

Sc4u= 400 SECTOR COUNT FIELD 2 (BIT #9) 
SCio= 1000 :SECTOR COUNT FIELD 3 (BIT #9) 
Sc20= 2000 ;SECTOR COUNT FIELD 4 (BIT #10 
TRKi= 4000 ‘TRASK FIELD 1 (BIT #11) 

TRKe= 10000 :TRACK FIELD 2 (BIT #12) 

RK¥= 29000 * TRACK FIELD 3 (BIT #13) 
TRK1O= 40000 : TRACK FIELD 4 (BIT #14) 
TRKe0= 100000 . ? TRACK FIELD S (BIT #15) 

;RPOY ERROR REGISTER #2 (RPER2) (#10) 
weu= 1 WRITE CURRENT UNSAFE (BIT #0) 
CSF= 2 :CURRENT SINK FAILURE (BIT #1) 
wus 4 :WRITE SELECT UNSAFE (BIT #2) 
cSu= 10 :CURRENT SWITCH UNSAFE (BIT #3 
MSE= 20 :MOTOR SEQUENCE ERROR (BIT #4) 
TOF= 49 s TRANSITION DETECTOR FAILURE 
TUF= 100 !TRANSITIONS UNSAFE (BIT #5) 
FEN= 200 *FAILSAFE ENABLED (BIT #7) 
WRU= 400 : WRITE READY NSAFE (B ) 
MHS= 1000 :MULTIPLE HEAD SELECT (BIT #9) 
NHS= 2000 :NO HEAD SELECTION (BIT & 
1xE= 4000 s INDEX ERROR (BIT #11) 

VU30= 10000 .  $30VOLT UNSAFE (BIT #12) 
PLU= 20000 sPLO U UNSAFE (BIT #13) 
acu= 100000 :AC UNSAFE (BIT #15) 


;RPOS’6 ERROR REGISTER #02 (RPER2) (#10) 
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ITE CURRENT UNSAFE (SIT # 


pe PRUE AGT AD 


s eurren Saree VT ou val #3) 
:RERO ano waite Ro) 
TRANSITIONS DETEC "7 FAILURE (BIT #5). 
: AF © #6) 


E (BIT #8) 
'MUTL TIPLE HEAD me (BIT ¢ 
iN LEC ON MS se #10) 


004000 

010000 
; DESIRED CYLINDER ADDRESS iReca), (#12) 
;(ERCH BIT IS CALLED BY BIT NUMBER) 


;CURRENT CYLINDER ADDRESS (RPCC) (#13) 
;(EACH BIT IS CALLED BY BIT NUMBER) 


;SERIAL NUMBER REGISTER (RPSN) (#14) 
;(EACH IS CALLED BY BIT NUMBER) 


;RPOY ERROR REGISTER #03 (RPER3) (#15) 
;PACK SPEED UNSAFE (Orr #0) 
VELOCITY UNSAFE (BIT #1) 
ANY UNSAFE EXCEPT READ-URITE (BIT #3) 
AC LOW (BIT #5) 


DC LOW (BIT #6) 
:SEEK INCOMPLETE (BIT #14) 
1o0000 OFF CYLINDER (BIT #15) 


ERROR REGISTER #03 (RPER3) (#15) 
3DC UNSAFE ( 
.: 
AC LOW 


;0C_ LOW (BIT #6) 
OPERATOR PLUG ERROR (BIT #13) 
040000 :SEEK INCOMPLETE (BIT #14) 
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Dz2RI0.019° RPOY/S/6 REGISTERS A 










390 100000 OCYL=  1u0000 sOFF CYLINDER ERROR (BIT #15) \\, 
385 sECC POSITION REGISTER (RPECL) (#16) ; 
333 : (EACH BIT IS CALLED BY BIT NUMBER) 
385 ECC PATTERN REGISTER (RPEC2) (#17) 
386 :(EACH BIT IS CALLED BY BIT NUMBER) 







388 ff RRRRRRA LE REAE AAA AA LRA EA RE RELL AE RELA LAER RAE LAA ELE LAR ELAL LE FLE 


-SBTTL RPOY/S’6 DRIVER COMMANDS 
332 5 RAHI HEHE RRR R AREER EE LEAR EEE EE EERE AREY EEK ER ER AER AE EE 













34 000101 RNOP = 101 ;NO OPERATION 

23S 000193 UNLOAD = 103 U ae 

3% 105 SEEK = 105 EEK 

397 000107 ECAL = 107 : RECALIBRATE 

338 000111 DRVCLR = 111 ;DRIVE CLEAR 

399 000113 RELSE = 113 ; RELEASE 

400 000115 OFFSET = 115 T 

401 000117 TC = 117 RETURN TO CENTER LINE 
402 000121 READIN = lel READ IN PRESET 

403 000123 CK = 123 s PACK ACKNOWLEDGE 

404 000131 SEARCH = 131 ; SEARC 

40S 000141 GETREG = 141 :GET REGISTERS 

406 000143 SETFMT = 143 :SET Al (& ECI OR BCT) 
407 000145 DRY = 145 SELECT DRI vn 

408 000151 = 151 SWRITE CHE 

4 060153 = 153 ; WRITE re HEADER & DATA 
410 000161 WRTDAT = 161 :WRITE DAT 

411 009163 = 163 : WRITE HEROER & DATA 

412 000171 RDDAT = 171 :READ DAT 

413 000173 = 173 ; READ HEADER & DATA 











415 -SBTTL TRAP CATCHER 
















=0 
418 s#ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A ".+2,HALT” 
419 *¥SEQUENCE TO CATCH ILLEGAL TRAPS AND INT 
420 iene ;#LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
422 9090174 O00000 DISPREG: .WORD 0 ;;SOFTWARE DISPLAY REGISTER 
423 000176 O00000 SWREG: .WORD 0 ::SOFTWARE SWITCH REGISTER 
424 -SBTTL STARTING ADDRESS(ES) 
425 900200 000137 904076 aasTA - JUMP TO STARTING ADDRESS OF PROGRAM 
426 000204 000137 OO04065 Tp are TART. t Ana HANGE THE RH11 UNIBUS ADDRESS 
Hg? ‘AFTER INITIAL START 
4e3 - SBTTL ACTI1 HOOKS 
33} Tiana ee 
432 oe ‘HOOKS REQUIRED BY ACTL 


423 000210 $SVPC=. ;SAVE PC 
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DZRID.919 acTL 
246 
_ 000046 acett SENDAD +;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SE0P 
3 oooos2 BS8086 “idk 40000 532)SET Loc.52 TO 4o000 
"=$SVPC RESTORE PC 


| 
| 


a mr a re ee = nn ee - eee 


a i Re a tm a ne a ah ania a a 


SEQ CO4G 
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.SBTTL COMMON TAGS 


5p RRR KEE KERR ERE EE EER ERE R ERIE EEE ER EEE REE EEE EA EEEESE 
;*THIS TABLE y bg VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM 


eonree? ;;START OF COMMON TAGS 

5s CONTAINS PASS COUNT 
TAINS THE TEST NUMBER 

TAINS ERROR FLAG 

ne zeres! obo nee COUNT 


Oo 
Oo 


S foe Gi been 


SESESS888 


8 


; ; CONTAINS nAX, ERRORS PER "Test 
;;CONTAINS PC OF LAST ERROR INSTRUCTION 
;;CONTAINS ADDRESS OF *GO0D’ DATA 


QO00000+-VOO000000 


; AUTOMATIC MODE INDICATOR. . 
;; INTERRUPT MODE INDICATOR 


3; ADDRESS OF SWITCH REGISTER 
;ADDRESS rane REGISTER 


UFFER 


o0000 
w 


ADDRESS 
NULL CHARACTER FOR FILLS 
# OF FILLER a REQUIRED 
FILL CHAR 


le S. AFT 
AVA {teeta FLAG (BIT¢O7> S0=YES) 


0 
(2079 «3779<377> § 
QUEST ION MARK 
AS CARRIAGE RETURN 
SCIZ <le NE 
[jeer eecenecnee hie nene nea cea ceece nena 


PULOVE LUO LEVON EOE LUO FOF LOGOS 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSS838S8Ss88sssssssssssees 


;FIRST ADDRESS OF RH11/RPO4/S/& REGISTERS 

;RPOY VECTOR ADDRESS 

SADDR OF Kili-P STATUS. REGISTER 

sADOR OF Ki11-P COUNTER BUFFER 

SADOR OF KW11-P VEC 

SADR OF KUII-L STATUS REGISTER 
ADDR OF KWL1=U VECTOR 

:°0? IF KW11-P IS ON SYSTEM , 
:°0’ IF A CLOCK IS AVAILABLE % 


:74 (8) IF 60 HZ SYSTEM; S2 (8) IF SO HZ SYSTEM a: \} 


statatat=t=t=t=t=t= 
= 
VOR LVOTLNG 
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OZRJO.919 COMMON TAGS 
Ms piste 
WU 
4 881548 000000 000000 
496 O0le2b 009000 
497 ocooe9 000000 
498 
499 
2 
503 000 
5C4 
505 
506 
S07 
S08 
509 
510 
$11 
Sle 
513 
S14 
515 
516 
at 
344 001301 000 
Se0 001302 000000 
Se! 001304 000000 
aie ie 
Se4 WTETE 00 
SeS 001314 900000 
Se6 001316 000 
Se? 001317 000 
SS Rie oe 
530 B01 354 ita 
531 001326 000000 
S3e 001330 000000 
$33 00133e 
534 001334 000000 “ 
$35 001336 0000 
S36 001340 000000 
537 00134e 000000 
538 001344 000025 
539 001346 o0002e 
540 001350 000632 
S41 
S42 
543 
S44 
Ent 
546 


MACYL1 27(6S5) 


_— 


STATIN: - WOR 
DATE: “iB 8.0,0,0,0 
OPERID: .WORD 0,0,0,0 
DRIVE: .WORD 0 
TIN: eB 0 
UNIT: . WOR 
K: . WOR 0 
RETRY: .BYTE 0,0 
FAIRNS: .WORD 3 
LSTAD: .WORD 0 
CHGADR: .WORD 0 
LAG: .WORD 0 
BADSEC: .WORD 0 
UR: .WORD 0 
MINUTE: .WORD 0 
0 
0 


BYTE 0O 
SAVERI: .WORD OQ 
SAVERS: .WORD O 
ERCTR: .WORD O 
IMIT: .WO 0 
MCNT: .WORD 0 
CMCYL: .WORD O 
CMSEC: .BYTE Q 
CMTRK: .BYTE OQ 
ECBIT: .WORD O 
SEC: .WORD OQ 
CMSKO: .WORD O 
ECMSK1: .WORD OQ 
ECWRD: .WORD OQ 
ECGD: WORD OQ 
ECBADO: .WORD OQ 
ECWRDI1: .WORD OQ 
ECGD1: .WORD Q 
ECBAD1: .WORD 0 
SECLMT: .WO el. 
TRKLMT: .WORD 18. 
CYLIMT: .WORD 410. 


28-APR-76 17:04 PAGE le 


:*TYPE STATISTICS’ INDICATOR 
Henao eNveAeR aren 

;OPERATOR ID 

EI a Lease Ena St 
DRIVE 5 sFonnce PRINTOU 

“ERROR RE MASK 

“ERROR RETRY IngT IN THE LOWER BYTE 
‘RETRY COUNT HE UPPER YTE 


:M Q UE 
STORE LAST MEMORY ADDRESS HERE 
: CHANGE RH11 rtaus ADDRESS FLAG 


: CONTROL 

; BAD gg TRACK FLAG 
;HOUR COUNT STORED HERE (MAXIMUM - 999. ) 
; ORED HERE 


311 ROU 0 

ERO INDICATOR FOR THE DATA COMPARE ROUTINE 

:DATA COMPARE ERROR FLAG 

s1F > G, PROCESSING ’DCKER’ OR CAN’T MATCH PATTERN 
ATS < MISCOMPAR' 


SION 
SomPans ION OR CAN’T MATCH PATTERN FLAG 
HE < ve Rl HER ERROR IN BUFFER 


tay VER HERE 
;NUMBER OF ERRORS 
s DISPLAY LIMIT - 


OFFSET 
; ERROR ORD_OFFSET (RELATIVE TO SECTOR) 
SEORRECTION Mask FOR FIRST ERROR WORD 
CORRECTION MASK FOR Beco ND_ERROR WORD 
Leen OT OF ay woe R WORD 


soe DATA, FIRST WORD 
LOCATION OF SECOND ERROR WORD 

GOOD DATA, SECOND WORD 

*BAD DATA, SECOND WORD 

s SECTOR ADDRESS LIMIT 
TRACK ADDRESS LIMIT 

CYLINOER ADDRESS LIMIT FOR RPO4/S’S 
(CHANGED TO 814. FOR RPOS) 


fp RRRRRERRR REALE EERE RAKE REE ER EEE ARE RRR REAR ERE RRRER EERE RE ERERARE 


.SBTTL COMMON PARAMETERS 
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J JHE 


ENDCON: . 002749 ;1.875X10+8 WORDS (10) [3x10t9 BITS] 
‘ 00S4SS MSW 
ENDSEK: - _ 33 X 10t& SEEKS (LSW) 


. :MSW 

PASCNT: .WORD 1 ;NUMBER OF rte TO END _OF TEST 

MAXDL: . ;MAXIMUM DATA TRANFER SIZE IN WORDS 
(FILLED BY PROGRAM AT STARTUP BY OPERATOR 
DURING PARAMETER a NTRY DIALOG. 

MAXER: . , sMax XIMUM ERRORS - 100(10) 

INTRVL: . FIRST WORD IS THE PERFORMANCE TYPEOUT INTERVAL . 
He PIUTES). SECOND WORD IS THE INTERVAL 


UN 
; COUNTER, UPPER BYTE IS VALUE. 
R OF COMP 


8 segsee 
ata 


Se 


CMPLMT: . 


FORMAT: .WORD R & DATA ORDERS 
TF EQ 0, DO’NOT ALL OW WRITE HEADER & bara ORDERS 
WCSEL: .WORD ; IF EQ TO 0, GENERATE A RANDOM WORD COUNT 
FOR THE OPERATION. 
‘IF NOT EQ TO 0, USE THE VALUE IN ’MAXDL’ FOR 
WORD COUNT 


RATIO: .WORD  READ/WRITE wendy (RANGE Q - 7] 
:0 - 0/8 (READ/WRITE) 


ooco01 AUTOCK: . 
EQ 0, SELECT WRITE CHECK ORDERS 


’ 
000001 NOTPRT: . :IF EQ 1, DO NOT PRINT DATA ERROR MESSAGES 
; assoctaTeD WITH OPERATOR SPECIFIED 


i PAC 
sIF NOT EQ 0, PRINT ERROR MESSAGES RELATING TO 
001410 oo0001 “as 5 IF aor EQ 0, END OF PASS DETERMINED 
HE *WORDS READ’ COUN 
IF EQ 0, END OF FAGS DETERMINED 
: BY THE SEEK COUN 
5p RRRRAKRR RE RAAE AEE R EERE AA ARE EERE EER EE EERE EERE ELE ERE EEE EER EEAARES 
.SBTTL VALUES FOR FIRST OPERATION 


$j RRRRRRRRRERALEK AAR RREEAA RE RK ERE REE ER EEE AEE REE EERE EERE AALLRERER 


001412 000010 BEGPAT: .WORD 10 ;STARTING paler CODE [RANGE 1 - 17 (OGTAL) } 
RANGE 0 - S$) 


001414 o00005 BEGCOD: .WORD 5 STARTING COMMAND CODE t 
:0 = WRITE CHECK DATA (*WCKD*) 





MD-11 


D 


ZRJ0. 
& 
604 
606 
$07 


0 


a 


roo 
Hehrited 


POOOrrroownm 
02 bb pe pe po po he 
OWO VOU £cWwrueE 


fo 
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019 VALUES FOR FIRST OPERATION 


001416 oo0404 


000000 
000000 
000000 


000000 
00000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000000 
000000 


000000 
000009 
000000 
000000 


000000 
000000 


000000 - 


000000 
000000 


BRE EK renoer “i (* WCHKHD’ ) 
HE pDER & ed (*WRTHD’ ) 


BEGSIZ: .WORD 404 


atm om eu ee 


=3aDrPD=—m 


AST 4 IF 
READ DATA; THE SIZE MUST 
HEADER AND 


R R_AND_DATA. 
TF THE SIZE IS GREATER THAN 1 eee THE 
SIZE MUST ALLOW FOR OVERLAPPING 4 OR'S 
sWORDS INTO THE LAST SECTOR USED. 


5.5 RRRRARE RARER EERE EEE AE LEELA EEE RE REE REL EAE LEAL LER ELELERERELERE 


-SBTTL TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
5p EH RR RARE EKER AERA E EEE EERE EEA EA HEAR E EEE EA EERE EEE EES 


ORDERQ: .WORD 0,0,0,0,0,0,0,0,0 ;LIST OF DRIVES PERFORMING COMMANDS 


ASNLST: .WORD O ;A BIT SET IS AN ASSIGNED DRIVE 
DUNIT: .WORD 0,0,0,0,0,0,0,0,0 ;ADDRESSES OF DRIVES TO BE DEASSIGNED 


NEWUNT: .WORD 0,0,0,0,0,0,0,0,0 == == ;ADDRESSES OF NEWLY ASSIGNED DRIVES 


AVAIL: .WORD 0,0,0,0,0,0,0,0,0. : ;LIST OF DRIVES WAITING FOR BUFFERS/PARAMETERS 
WAIT: .WORD 0,0,0,0,0,0,0,0,0 ;LIST OF DRIVES WAITING FOR BUFFERS 
PARQ: .WORD 0,0,0,0,0,0,0,0,0 SLIST OF DRIVES WAITING FOR NEXT PARAMETERS 


BUF TBL: i ;BUFFER ALLOCATION TABLE ENTRY COUNT 


20000000, 
2C2000000 





ieee ar atit 


— b= b+ b= bp bh heh ph he 
& so 
£O 


39 cuoseesesesia © 
SN NNSINO'O'O 


m™M 
tf 


» RPOY/S/6 MULTI-DRIVE EXERCISER 
TABLES, CONSTANTS, AND VARIABLE LOCATIONS 


BLKADR: . 
WORD 


COMTBL: . 
B 


OPTBL: 


- EVEN 


Z 047514 042101 MNTBL: 
3 O4¥S50S5 020040 


MACYI11 27(65S) 28-APR-76 17:04 PAGE 1S 


K 
HADDRESS ; THE BLOCK FOR DRIVE 


“Wd 
‘WRITE HEADER AND DATA 
:READ HEADER AND DATA 


; UNLOAD 
; EEK 
;RECAI 


Mm DALEL= 
DBADBOOD 
LOHnHAAA 


MU — Or’ 
Om cMoO 


: WRITE 
sRITE He HEADER AND DATA 












;ADDRESS OF THE BLOCK FOR D 
; ADDRESS OF THE BLOCK FOR D 
HE BLOCK FOR 








;ADDRESS OF THE BLOCK FOR DRIVE 
ADDRESS OF THE BLOCK FOR DRIVE 


;WRITE CHECK DATA 
;WRITE CHECK HEADER AND DATA 























ECAL 
DRIVE CLEAR 
;REL EASE 


RETURN TO CENTERLINE . 
: READIN 

PACK ACKNOWLEDGE 

; SEARC 


sWRITE CHECK DATA 
WRITE CHECK HEADER AND DATA 


DAT 
;READ HEADER AND DATA 
; TERMINATOR 









SEQ OCS2 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS 








TOY 002010 O4eS22 040503 020114 -ASCIZ /RECAL 
710 902013 00040 ‘ 
it 002020 061104 O41526 051114 JASCIZ /DRYCLR / 
cig 902026 900040 ‘ 
ch Sec 30 e522 051514 020105 JASCIZ /RELSE / 
TIS 802040 O43117 051506 oS2105 JASCIZ /OFFSET / 
716 902046 
71? 902050 peeise 020103 920040 JASCIZ “RTC / 
28 Sbehe OO504 
718 002060 O42522 042101 O47111 .ASCIZ /READIN / 
720 902066 300040 
el 002079 O40S20 O4SSO3 O20040 JASCIZ. /PRCK / 
Tee 902076 000040 ae 
723 002100 042523 051101 044103 .ASCIZ /SEARCH / 
724 002106 900040 
72S O0S110 O41527 O42113 020040 -ASCIZ “WCKD  / 
726 002116 900040 
727 002120 041527 044113 020104 -ASCIZ /“WCKHD 
728 006126 900040 
723 002130 OSile7 o42124 052101 .ASCIZ /WRTDAT / 
730 002136 O0004O . 
731 02140 051127 O44124 020104 .ASCIZ /WRTHD 
732 302146 900040 
733 goei50 oue12e o4oso4 020124 .ASCIZ /RODAT / 
ics ‘ = 
73S 002160 O42122 O42110 ce0040 -ASCT? — /RDHD 
736 02166 46 : 
737 U0el70 O47516 O42516 020040 .ASCIZ. “NONE / 
g3e 02176 00040 
740 902200 000 OFFCOD: .BYTE 0 OFFSET CODE _TABLE 
74] 902201 910 “BYTE 10 :+200 U INCHES 
742 002292 210 “BYTE 210 :-200 U INCHES 
743 90e203 620 -BYTE 20 +400 U INCHES 
744 002204 = 220 “BYTE 220 :-400 U INCHES 
745 902205 930 “BYTE 30 ;+600 U INCHES 
0022 230 000 “BYTE  230,0 :-600 U INCHES, TERMINATOR 
747 002210 20 “BYTE 20 ;+400 U INCHES 
748 O022i1 220 “BYTE 220 3-400 U INCHES 
2 Secle = ND “BYTE |= 4 ;+800 U INCHES 
750 90221 249 “BYTE 240 ;~800_U INCHES 
751 02214 o¢0 “BYTE 60 :+1200 U INCHES 
| 752 o02215 269 00 “BYTE 260,0 371200 U INCHES, TERMINATOR 
| 3 002220 : .EVEN 
| 755 02220 02254 OFMTBL: .WORD  OFMSGO ;1ST OFFSET MESSAGE 
| 73E D0eeee 902307 . -WORD OF MSG1 OND OFFSET MESSAGE 
7 002224 902343 “WORD OF MSGe :3RD OFFSET MESSAGE 
| 788 02226 77 - WORD G3 s4TH OFFSET MESSAGE 
| 6753 002230 002433 -WORD OF MSG ;STH OFFSET MESSAGE 
760 002232 302467 “WORD OFMSGS 67H OFFSET MESSAGE 
761 02234 02523 “WORD — OFMSGE 4! OFFSET NESSHGE 
| 76e C0222 O02254 “WORD «© OFMSGO ET MESSA 
| 
i 


Ee 
= 
f 
Oo 


giotg 


se 
B88 
Bias 


at 


ay 
ahs 
see 


PDL RRR EER 
BRBrBERsEEE 
HORSES 


806 4 


On EWU. 
Be 
2RSa 


cooo co cococo0o co coco 


RPO4 SG MULTI-DRIVE EXERCISER MACY 
TRELES. CONSTANTS. “AND VARTARLE LOcatTO 


002377 


Ba 2RaR 29 
uci 
aaa 


R SR 
— Lr 
arp 


PERE 
We~ro 
—rorory 
rit ta 


RASABRARARRAS 
eae 


BR 
RISER 


3 


ABARSRBRBR 
ara aee 


RRABR 
MwOr-MOoO 
pAb dy 4 
WINo 


oO 

au 
nie 

on 7 

SRY 


026517 
os 


0 
043117 
025440 


OFMSGO: . 
OFMSG1: 
OFMSG2: 
wank 
OFMSG4: 
OFMS&S: 
OFMSGE: 
OFMSG?: 
OFMSGB: 


OFMSGS: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


»ASCIZ 
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NS 


OFMSG3 
QFMSG4 


OFMSGA 


(PETER RETRY WITHOUT OFFSET/ 


/AT OFFSET +200 MICRO-INCHES/ 


/AT OFFSET 


“AY OFFSET 


/AT OFFSET 


/AT OFFSET 


/AT OFFSET 


/AT OFFSET 


7QT OFFSET 


/AT OFFSET 


en ne ee ee ee 



















SEG COS3 


;4TH OFFSET ! sence 

;STH OFFSET MESSA 

;8TH OFFSET MESSAGE 
SSAGE 


. ( aq 
:i0TH OFFSET MESSAGE 
-LITH OFFSET MESSAGE 


-209 MICRO-INCHES/ 
+400 MICRO-INCHES/ 

FY Ra 
“400 MICRO-INCHES/ 
600 MICRO-INCHES/ 
“£00 MICRO-INCHES/ 
+800 MICRO-INCHES” 


800 MICRO-INCHES~ 


+1200 MICRO-INCHES/ 










ee 


0511 
044103 
002742 
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TABLES, CONSTANTS, AND VARIABLE LOCATIONS , 


030069 
7Se 


? 
051505 






O4f 44g 


- 


paauee OFMSGA: .ASCIZ /AT OFFSET -1200 MICRO-INCHES/ 


EVEN 
5 RERRERRREERERERERELSRAEE REE LER EAEESRERALEL PEER EFAS LEAL ES EE EE EEE 
-SBTTL DATA PATTERNS 
5 RRRRRRRELER RAPA ALA LE RARER ERELL EEA ERERA REEL ES ERED EREREAL EL EEE ESE 
STNDAT: .WORD 9 ;STANDARD DATA PATTERN POINTER TABLE 


“WORD DATAO ;ZEROES . 
“WORD DATAL+642 : ONES 


DATAQ: ee ;DUMMY DATA PATTERN 





= 
oO 
P.*) 
o 
OOOO OOKOKOOKOK0OO0000 


DATAL: .WORD O00001 ;STANDARD PATTERN 


MO-11-O2RJ0-A, 
OZRID.919 


093100 
003102 
88S 003104 
236 
887 683108 
888 00311 
889 O03ile 
890 003114 
831 003115 
832 003126 
893 003122 
834 002124 
83s aish 
896 1 
837 003132 
898 003134 
903136 
003140 
003142 
003144 


Siler edat sito t 
3 
a 


003146 
003150 
09314 
003156 
$09 903160 
$19 903162 
911 00316 
oe 
914 Basics 
$15 903174 
$16 003176 
$17 003200 
aig 00320¢ 
$19 003204 
320 
$21 003206 
See 003210 
$22 O03e¢le 
924 003214 


RPO4’S/6 MULTI-DRIVE EXERCISER 
DATA PATTERNS 


021042 
031463 


MACY11 27(655) 





009003 


000900 
17977 


000000 
0104e1 
Oe 104e 
031463 
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;STANDARD PATTERN 2 


;STANDARD PATTERN 3 


;STANDARD PATTERN 4 


SEQ Coss 





MO-11-D2RID-A, 
DZRID. 919 


003356 
003360 
978 003362 


RPOY/S/’6 MULTI-DRIVE EXERCISER 
DATA PATTERNS 


e 
151322 
026455 


MACY11 27(655) 


042104 


177777 
Ses 
S 


leSeSe 
007417 
2 


170360 
026455 
5 


026455 






SEG OOSE 
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i 


;STANDARD PATTERN S 


;STANDARD PATTERN & 


;STANDARD PATTERN 7 





whee RPOY’S/6_MULTI-DRIVE EXERCISER 


D2RID.919 DATA PATTERNS - 


979 


1014 ° 


bs 0 2 
nN bb 
GWnr--OWOnNwuUl 


003364 
3366 


1) 
003530 


176777 


MACY1L1 27(655) 





026455 


151322 
165555. 
3 


165555 
133333 


000091 
Oe 


176777 
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;STANDARD PATTERN 8 


;STANDARD PATTERN 9 . 


;STANDARD PATTERN 10 











MO-11 
DZRIO. 


238 


a ad Tt al tas 


a a 


Co 
338 


on 


0 
074 
0 


1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
- 
1 
1 
1 
1 
1 
1 
1075 
1076 
1077 
1078 
080 





-D 
ord 


ae 


003676 153333 


JO-A, RPOY/S/’6 MULTI-DRIVE EXERCISER 
DATA PATTERNS 
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-WORD 172666 
WO 
-WORD 155555 
-WORD 17266 
-WORD 155555 
-WORD 172666 
-WORD 155555 
-WORD 172666 
-WORD 155555 
- WORD 17eb68 
-WORD 1555 
-WORD 077777 
-WORD 1377 
-WORD 157777 
-WORD 167 
-WORD § 173777 
WORD 175777 
WORD 176777 
RD 177377 
WORD 177577 
WORD 177677 
WORD 177737 
177757 
WORD 177767 
WORD 177773 
WO 177775 
RD 177776 
WORD 153333 
WORD O6666 
WORD 153333 
WORD 066667 


153333 
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;STANDARD PATTERN 11 


;STANDARD PATTERN 12 


;STANDARD PATTERN 13 
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MD-11-DZRJD-A, RPOW/S/6 MULTI-DRIVE EXERCISER 
DZRIOD.019 


88 3 


oO 
ao 
0 


BERRA GLS 


BeIRALoHo 


Ob 0 02 bs ho pe ee 
WONTU CWO 


8 


She 





0 +b b— & + b+ bP - 2 bb = b= & = bh B= pe ho po > bb - ° 6 — b— & - b= & ~~ 6 0 = § - 9 = 9 po > pp 
£u) 


b-+b -+0-+ b-- 6 — b+ b+ 6 — 6 6+ +b &—< b— b= 6 6 0 6 0 9 9 b> pe 


tw 


066667 
153333 
066667 


000000 
177777 


000900 
000000 
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;STANDARD PATTERN 14 


;STANDARD PATTERN 15 





~ 
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019 ERROR POINTER TABLE 


He 
or 


.SBTTL ERROR POINTER TABLE 


serHs TABLE CONTAINS THE sy Oman FOR_EACH ERROR THAT CAN OCCUR. 


HaLea HON SITE. he hore 4 “HOIGatES PEALGM ITEM YW THE TABLE. IS PERTINENT. 


tINOTES: EACH ITEM IN THE A FABLE CONTAINS 4 POINTERS EXPLAINED ‘AS FOLLOWS: | 


s% EM POINTS TO THE ERROR MESSAGE ~~ 
: OH S EPOINTS TO THE DATA HEADER 
OT ::POINTS TO T 
OF t:POINTS TO THE DATA FORMAT 


ve 
Swoon 


iG) 
- 


SERRTB: 
;ERROR 1 


sERROR 1 
;RH11 INTERRUPT OCCURRED (RPAS = 0) 


;UNEXPECTED ATTENTION OCCURRED 


;MASSBUS PARITY ERROR (MCPE=1) 


;MASSBUS PARITY ERROR (PAR=1) 


;ADDRESS PLUG BIT CHANGED 


050034 
000000 
;ERROR 6 


32 
33 
34 
3s 
36 
3? 
38 
33 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
$1 
Se 
$3 
54 
5S 
56 
57 
58 
53 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 













° 


Ps) 
on 
rs 


JO-A, 


DZ “OL 





aa 


O62 
4064 


f= bp = 2 =p = p= p> 


BSELRRLSR SEAR ESTOS SB 





S 


Maternal ete etetatetes 2 pe he 
-— 
oe ee on on ood 
—T 
oman 





858 
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ERROR POINTER TABLE 


04S166 
047545 


060000 


012737 
00 
005037 
0000 


1 
012737 


013746 
012737 
012737 
012737 
022777 
001012 


O1e7i6 
oo0002 





177777 
001260 


001100 
001140 


004236 


000176 
000174 
000004 


000240 
0C0240 
177777 


055254 
o0004e 


001260 


000030 
00 





EMG ;RH11 DIDN’T RESPOND TO ADDRESSING 


5p RHEE RRR R RRR EERE K ERIE REEL EERE E ERE ERLE EERE EE 
-SBTTL SETUP AND INITIALIZATION ROUTINE 


; START ADDRESS = 200 
; ADDRESS TO CHANGE RH11 UNIBUS ADDRESS = 204 


fy RERRARARER RAR EERE ALLER ALA EERE RE REESE RERAE LLL ALAE RE RE RE EE LE REREE 


START: MOV #-1, CHGADR ;SET RH11 ADDRESS CHANGE FLAG 
START2 is TaRT THE PROGRAM 

STARTI: CLR CHGADR THE RH11 ADDRESS CHANGE FLAG 
START2: RESET 2CL LEAR THE BUS 
-SBTTL INITIALIZE THE COMMON taés 
:;CLEAR THE COMMON TAGS (SCMTAG) AREA 

MOV #SCMTAG, R6 sstina LOCATION TO BE CLEARED 

CLR (R6)+ “CLEAR MEMORY LOCATION 

CMP #SWR,R& ;;DONE? ° 

- ;:LOOP BACK IF NO 

MOV #STAC ;;SETUP THE STACK POINTER 
ss INITIALIZE A FEW OectoR 


#SERROR TF ENTVEC : sENT VECTOR FOR ERROR ROUTINE 
MOV #340 guENTVEC+e ; HLEvE 
MOV #STRAP, JRTRAPVEC AB VECTOR FOR TRAP CALLS 
MOV #340 DRTRAPVEC Cte; EVEL 
MOV #17658 43, SHINUM SPRITE RANDOM NUMBER GENERATOR 
MOV #123456 ie fen f LOW WORDS 
;;SIZE FOR A HARDWARE Sh cH Recher Re tt oF OUND OR IT IS 
*:EQUAL TO A “=1", SETUP ARE SWITCH REGISTER. 
MOV DRERRVEC, - Peeps OT AVE ERROR VECTOR 
MOV #64$ SHERRVEC -: SET ERROR VECTOR 
MOV #0S j§ SETUP FOR A HARDWARE SWICH REGISTER 
MOV wOBISe> AR cp ay ?AND A HARDWARE DISPLAY REGISTER 
CMP #-1, JSWR :: TRY TO REFERENCE HARDWARE SWR 
BNE 665 i }BRANCH I I wo, TINEOUT UT_TRAP OCCURRED 
7 BR 65 + BRANCH FN 0 
64S: HOV aces, (SP) 2:SET UP Ka He atarEOUT, 
65$: MOV #SWR gyi POINT TO SOFTWARE SWR 
MOV IotePRee B DISPL 


66S: MOV (SP)+, SHERRVEC ” , ;RESTORE ERROR VECTOR 
MOV #240, d#EMTVEC+2 ;CHANGE EMT PRIORITY TO S 


MOV #240, JSTRAPVEC+HE j CHANGE TRAP PRIORITY To S 
INC sFIRST ST STA 

NE ts. Ror 

TYPE TITLE ‘NAME AND MANDEC NUMBER 


TST 42 :AUTO ACCEPT OR CHAIN MODE ? 








MD-11-DZRJD-A, RPOW/S/6 MULTI-DRIVE EXERCISER 


DZRJD.919 INITIALIZE THE COMMON TAGS 


ies) Ooale 000011 
ice 001002 


S354 
30000 


ooot4e 
001140 


001602 
000144 
001256 
000041 
1403 
OO461e 162737 002570 


000041 


000176 


001134 


033259 
033252 


001366 


001256 


001602 
100000 


001602 


BNE 
CMPB 
TYPE 
JSR 


MACY11 27(655) 


1$ 
#11,41 
LOADR 


PC. STKINT N 
GET VALUE afr SOF THARE siiITCH REGISTE ER 


pre 
SWR, #S 
68$ 


68S 
#1, SAU 
#-1 
2$ 
PC, BUS: 
SRPAD 
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;BR IF EITHER 
;LOADED FROM AN RPO4/S/6 * 


;BR_IF NOT 
V INSTRUCT THE OPERATOR ON HOW TO TEST DRIVE O 
THE KEYBOARD INTERRUPT 


* ARE UNNING UNDER XXDP/ACT? 

BRANCH IF ES 

WREG $F SOF THARE SWITCH REG SELECTED? 
eer SOFT-SWR SETTINGS 

TOB ;;SET AUTO-MODE INDICATOR 
sFIRST START ? 
:BR IF NOT 

ADR ; CHECK PHL S ADDRESS 


R, RPADR ;RH 
agp RPVEC ;RH11 VECTOR ADDRESS 


OPRDAT :GET T AND OPERATOR ID 
TIN 


#ORDER 
(RS)+ 
#BLKAD 


#STACK, 
P 


HZ, SIX 
HOUR 
MINUTE 
SECOND 
INTRVL 
PACK 


CFLAG 
#17000 


FT IME per ic SUMMARY TYPEOUT FLAG 
Q,RS ;START OF AREA TO CLEAR 


R,RS BRT rie END NtG — AREA 
SP 


TUS WORD 
TEE 1760 TH OR 1750 TH SECOND COUNTER VALUE . 
;CLEAR THE HOUR’S COUNTER 
; CLEAR THE MINUTE’S COUNTER 
CLEAR THE SECOND’S COUNTER 
+2 : CLEAR INTERVAL COUNTE 
3CL EAR THE ’R’ OR *W’ COMMAND FLAG 
;CLEAR THE *CONTROL Mo FLAG 
O,MAXER MAKE SURE ERROR LIMITS ARE NOT TOO HIGH 


;ROUTINE TO DETERMINE BUFFER AREA SIZE 


SIZMEM: INC 
BNE 


1$: 


#-1 


1 
PC, $SI 
LSTA 


BUF 
hag 


iSEE IF TINE TO SIZE MEMORY 
° 

2E *SEE HOW MUCH MEMORY ON SYSTEM 

LSTAD SAVE THE LAST ADDRESS 

BL LOAD NUMBER OF BUFFERS 

M BUFTBL +2’ “STARTING ADDRESS OF BUFFER 

AD, BUF TBL LAST ADDR TO BUFFER ALLOCATION TABLE 


HENDPCN, BUFTBL+Y® ppuaTeeey, oe il SPAC 


BUF TBL+ 
#100. 
teTAD’ 
$ 


41 


3$ 
#1400. , 


3C 

;CONVERT TO WORD COUNT 
BUFTBL +4 ; SAVE et FOR THE ores’ LOADER 
#100000 3 16K ON 5 THE SYSTEM 


:SEE WHO aoneR ne PROGRAM 
BR IF LOADED APER TAPE 
BUFTBL+4 * ; SUBTRACT *XXDP? COADER SIZE 
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DZRJD.919 GET VALUE FOR SOFTWARE SWITCH REGISTER 


1287 004620 005737 001364 3: TST MAXDL VALUE IN IN "eno ? 
188 pode Se posOLs 013534 001364 MOV #5980. ,MAXDL ASSURE FUL uC TRACK + 1 SEC MAXIMUM 

1290 34 083732 001364 O01602 CMP MAXDL,BUFTBL+4 :15 T 

1291 42 103403 BLO Ug ‘BR 

1292 OO4644 013737 001602 001364 MOV BUFTBL+4,MAXDL :USE MAX AVAIL MEMORY AS MAX BUFFER SIZE 


1293 O0046S2 013737 001602 053374 4S: MOV BUF TBL+4, *PARLST#2 ; VALUE FOR THE PARAMETER TABLE 


129 
1295 ;SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 
1297 004660 005737 oo0042 LKPAR: TST ae42 ;’XXDP’ CHAIN MODE OR ’ACT11” OPERATION ? 
1298 OO4664 001022 BNE SETVEC :B Y 
1299 OO4666 104401 053470 TYPE , ASKPAR -ASK FOR PARMETERS 
1300 004672 104411 RDLIN "READ THE 
1301 004674 012605 MOV (SP)+, RS *ADDRESS OF ENTRY TO RS 
1302 004676 122715 000131 CMPB saw Y, (RS) WAS ENTRY a "Y? (YES) 
1303 004702 001013 BNE SETVEC *BR IF NOT ° 
1305 004704 012703 053372 ENTPR: MOV #PARLST,R3 ; PARAMETER TROLE ADDRESS 
1306 004710 004737 O26e22 JSR PC, PARENT GET THE PARAMETER ENTRY 
1307 004714 023727 001364 oo0004 CMP MAXDL, #4 IS THE 'MAXDL’ VALUE OK ? 
1308 004722 103003 BHIS SETVEC :BR IF IT IS 
1303 004724 012737 OO00004 001364 MOV #4, MAXDL :SET "MAXDL’ TO THE MINIMUM VALUE 
1311 : DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 
. 13le : THE PROGRAM WILL USE 
1314 004732 004737 O2234e SETVEC: JSR PC, CKCLK ;START THE CLOCK 
1315 004736 004737 033266 JSR PC’ RPINIT s INITIALIZE THE RPOW/S/6 DRIVER 
1316 004742 012737 177777 033210 MOV #-1,SAVEFG :SET THE SAVE REGISTERS FLAG 
1317 004750 062727 177777 O00000 ADD #-1; #0 ;CHECK FOR FIRST START 
1318 -004756 103004 BCC 1$ *BR IF FIRST START 
1319 004760 032777 o00004% 17415e BIT #S5W02, ISWR ; TYPEQUT THE DRIVE STATUS TABLE ? 
1320 004766 001075 BNE 10$ 
1321 004770 012737 O00340 177776 11%: MOV #PR7, PS SET PRIORITY TO 7 
1322 004776 O0S004 CLR RY “DRIVE TABLE POINTER 
_ 1323 005000 104401 o011E5 TYPE  ,$CRLF :CR-LF 
1324 OO5004 104401 OS2262 TYPE  ;SYSTAT TYPE STATUS HEADING 
1325 O0SOi0 - 1S: 
1 005010 010446 MOV R4,-(SP) > ;SAVE RY FOR TYPEQUT 
1327 3; TYPE DRIVE N 
1 oo0so12 104403 TYPOS :G0 FYPE-OCTAL ASCII 
1329 O0S014 002 . ,BYTE 2 +i TYPE 2 DIGIT(S) 
1330 005015 000 . ~n 6 “SUPPRESS LEADING ZEROS 
1331 905016 104401 052071 TYPE LIN4SP ACES 
1332 O0S5022 105764 033122 TSTB ORVSTACRY) CHECK DRIVE’S STATUS 
005026 100416 BMI 4g BR IF UNSAFE 
1334 005030 001020 BNE S$ °BR IF ONT NE 
1335 005032 105764 033132 TSTB . DRVTYPCRY) *SEE IF OFFLINE OR NONEXISTENT 
1336 005036 001404 BEQ (2S - }BR IF NONEXISTENT 
1337 OOSO40 100006 BPL 33 *BR IF OFFLINE 
1338 OO0SO42 104401 oS2175 TYPE NOTRP ‘DRIVE NOT AN RPOW/S/6 
1339 O0S5046 oo0440 BR 5 *CHECK NEXT DRIVE 


1340 005050 104401 OS22l6 2s: TYPE »NOTPRS DRIVE NOT PRESENT 


oo. 


BES Sane 


Re 


Ste 
i 
Ste 
ae 


~ $+ bb b+ b= hh hh pe te 
88 


sates 


oOo 
oO 


wn 
SOLUS LES FRERBT SHAS 


b= b= b= P— b= b— P= B= = b= bb pe 


ate 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


104401 


004737 
104401 
000137 


BooS40 


pe Oe 
00001 
052307 
000002 


052314 


001165. 


000010 
001165 


177776 
005200 


ooo04e 


024224 
177777 


000041 
001256 
OSS553 
030000 


053257 
o0S4Se 


oo004e 


005452 
005310 





005146 
033132 


005146 
033132 


005146 


100050 


177777 000002 


‘CHECK NEXT DRIVE 


BRS 
38: TYPE UNTOFF aN OFFLINE. 


- §&R 
4§: TYPE NOTSAF UNSAFE 
BR 6$ i PRINT DRIVE TYPE 
cS: TYPE _, UNTON DRI VE ONLINE 
6S: TYPE tCPACES. 
MOV BRPO4B, 8S j ADDRESS QF RPO4 MESSAGE 
BITB #BITOO,DRVTYPCRY) 
BNE 7s :BR’ fF OES 
MOV : ADDRESS OF RPOS MESSAGE 
BiTB weryOl "ORVTYP CR} >RPOS 
MOV. #RPOG, 8S “ADDRESS OF RPO6 MESSAGE 
7S: TYPE *TYPE THE DRIVE TYPE MESSAGE 
83: .WORD O *MESSAGE ADDRESS HERE 
93: TYPE SCRLF *CR-L 
INC Ry ; INCREMENT | DRIVE NUMBER/TABLE POINTER 
CMP RY, #8. ‘FINISHED ? 
BNE 1$ *BR IF NOT 
10$: TYPE . \S$CRLF :CR- 
CLR pS :SET PRIORITY BACK TO °0? 
IMP MONTR :CHECK FOR ’XXDP’ OR ’ACTL1’ MONITOR 
;SETUP IF *XXDP’ OR ’ACT11’ OPERATION 
MONTR: TSI 42 sone" CHAIN MODE OR ’ACTL1’ AUTO ACCEPT 
JSR PC, ASGNe ASSIGN DRIVES 
1S: INC #-1 :FIR SI START ? 
BNE te *BR IF NOT 
TSTB #41 + OADED FROM PAPER TAPE ? 
BEQ :BR IF YES 
CMP LSTAD, #100000 :MORE THAN 16K ON THE SYSTEM ? 
BHIS 2$ *BR IF YES 
TYPE —_ , NOLOAD sTELL THE OPERATOR THAT THE *XXDP’ LOADER 
2s: JSR PC, STKINT * INITIALIZE THE KEYBOARD INTERRUPT HANDLER 
TYPE INTDON : TYPE "INITIALIZE COMPLETE? 
IMP MAIN “START THE PROGRA 
;*XXDP’ OR ’ACT11’ END OF TEST ROUTINE 
SGETY2: MOV 42, RO ;MONITOR ADDRESS 
BNE 1$ ER IF M HON ITOR 
JMP MAINI ia ONTINUE 
1S: CMP #SENDAD, RO S HONETOR "ACTLI’ ? 
BNE NDAD 
CMP #-1.2(RO) ist AC tu PASS ? 
BNE SDOAGN MAKE ANOTHER PASS 
RESET ‘PEAR EVERY THING 
SENDAD: JSR PC, (RO) G0 TO THEN ONITOR 
NOP SAVE ROOM 
OP :FOR 











1423 


oosso4 





SBRSRSe. 
Nad 


~ 
tae | 
fe 
“Ste 


303 
001370 
00043e 





900010 
001444 


oo0cte 
001442 


00S2S6 
001510 


cocode 
001S32 


00005e 


OS2S6& 
G22626 


017460 


000010 


001466 


-ocoooe . 


R 
H REGISTER 


NUP 
SOORGN: JMP START 
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;ACT11 
;START AGAIN 


gE PRRRARRASRAASASSLERASASL SARS SELES SE SLASSSEL SSSA SLAPLAAALEFFSFAE 


.SBTTL MAIN PROGRAM 


Sp RERSERASSRARESSLSSS SEAL RERARAELEAALAELALEAALARALALA AALS ASE LSASAS 


MAIN: MOV #8. 83 
MOV #OUNIT,RS 
18: TST CRS) 
3NE 3$ 
23: ADD 82,5 
DEC R3 
SNE 1$ 
TST ASNLST 
SNE MAIN] 
JMP $GETH2 
33: MOV #AVAIL,R1 
4S: TST (RL) 
BEQ ss 
CMP (RL), (RS) 
BEQ 7g 
ado 82,R1 
BR 4 
S$: MOV sWAIT,RI 
és: TST (RL) 
BEQ 2g 
CMP (R1), (RS) 
BEQ 7g 
ADD #2,Rl 
QR & 


CLR 
JSR Pe CMPRES 
SR es 


;LOOK FOR DRIVES TO BE ASSIGNED 
MAINI: MOV #8. ,R3 
C Re 


CLR 
CLR RY 
CLR eS 
1$: TST NEWUNT (RS) 
BNE 33 
es: ADD #2,RS 
INC aa) 
DEC St 
BNE 1$ 
Es MAIN2 


ee 


; INCREMEN 
; INCREMEN 
s DECRENEN DRIVE COUNT 

3R MORE DRIVES es 
“START OPEPSATIONS FOR THE AVAILABLE DRIVES 


;ORIVE COUNTER 
SADDRESS OF "DROP DRIVE’ TABLE 
:SEE_IF ENTRY AT PRESENT POSITION 


PR heats TO NEXT TAGLE POSITION 
; DECREMENT DRIVE COUNTER 

BR IF MORE TOC ok 

ANY DRIVES ACTIVE ? 

BR YES 


K FOR MONITOR RETURN 

RESS OF EVORL OGLE ORIVES’ TABLE 

F AT_END OF T 

AT END: GO CHECK ‘WAIT’ TABLE 

IVE_IN "AVAIL’ THE ONE TO BE DROPPED 


F YE 
; INCREMENT "AVAIL" TABLE ADDRESS 
ue LOOKING 
VE THE ADDRESS OF ra, SyrER WAIT TABLE 
iat THE END OF THE *WAIT’ TABL 
:BR IF YES: SEE IF ANY MORE | * DROP’ REQUESTS 
:DRIVE IN THE *WAIT® TABLE ” 
; INCREMENT *WAIT’ TABLE_ADORESS 
: EONT INUE LOOK THROUGH THE “WAIT’ TASLE 
UT THE DRIVE’ Rete nneoee IN RO 


Y ve 
TYPE. THE DRIVES PEREORMANCE SunmARY 
: REMOVE THE DRIVE FROM M THE e AVRL ‘OR ‘WAIT’ TABLE 


: COMP TESS Lig | RESPECTIVE T 
SEE IF ANY MORE DRIVES 


NOEX 

T INDEX 
NDEX 
N_THIS POSITION 
5 
SSIGN INDEX 


























SEa Ones 








MO-13 A-RERIO“A, 


DERID. 


00S 
005730 
005732 


ete | oes EXERCISER 
MRIN PROGRAM 


10440] 
OLO44 


105760 


2299 20 C00 


0S2076 


d000e6 
017476 
00iSS4 


—-Of Oo o-oo 
“I 


001519 
001442 


3$: TYPE 


4$: TST 


S$: MOV 


MAINe: TST 


1$: TST 


wr 
Sala) 
=z 
ao 
<= 


SOUL 

£64 O84 89 080 
qs 
en 
a 
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UNTMSG 


&4,-(SP) 38 iE " FOR TYPEQUT 
;iTYPE DRIVE NUN R 
$390 TyBe-~Ocr ASCII 
2 :: TYPE 2D } 
Famed sj Sree CEAOING ZEROS 
SyRIL(R2) iat END OF AVAILABLE TABLE 
i, R2 i INCRENEN BVAILABLE TABLE INDEX 


NTINUE LOOKING FOR END OF TABLE 
NENTS), avarines - MOVE ROOR OF ORIVE INTO. "BVT: LST 


NEWUNT ( j TAKE ORI 
ATABIT.RY) ASNLST ;SET ORIVE BES TCNED INDICATOR 
AVAIL(R2),AO  ;PUT STARTING ADORESS OF BLOCK IN RO 
Be Re INCREMENT AVAILABLE TABLE POINTER 
Fr LOOK FOR MORE DRIVES 


3GET ores Fan BUFFER GUELE’ AND START ORDERS FOR ORIVES IN 


AVAILABLE’ 

WAIT sOUTSTANDING BUFFER REQUESTS 

MAINS ‘BR IF THERE ARE 

Ro -  $0LEAR DRIVE TABLE POINTER 

VAIL (RE) pull, DRIVES tAITING FOR PARAMETERS a 
AVAIL(R2),RO SOTO, Foor ADOR IN RO 

SNEXT(RO) :PaRANE TER ERS S BEEN SEL ETE ? 

SPACK (RO) in” ry COMMAND FOR THE DRIVE ” 
PC, WRTPK :GET DATA PACK PARAMETERS 

7$ :GET THE BUFFER 

_ #PARQ,RI ‘ADDRESS OF THE PARAMETER QUEUE 

Ro, CRI) iis CURRENT DRIVE IN THE QUEUE ? 
(Ru) :QT ENO OF THE QUEUE 

33 : CONTINUE LOOKING 

PC, CMPRES : COMPRESS 

PC; SELPAR :SELECT THE PARAMETERS 

PC’ GETPAR :LOAD NEW PARAMETERS 

scebe ; MAKE ROOM ON THE STACK FOR THE BUFFER ADDR 

¢, GETBUF BUFFER 

Pesce! SBUF (RO) MOVE BUFFER ADDR TO DPB 

9§ ‘BR IF ‘0’ ADDR (NO BUFFER) 

PC, FILBUF FILL THE BUFF E 

SFAIR(RO) :CLEAR THE *FAIRNESS’ COUNT 

Pc, GODRIV :PUT CURRENT DPB IN DRIVER 
#ORDERO,RS | SADDRESS OF ORDER QUEUE IN RS 

(RS)+ : END OF QUEU UE ? 

.-2 :BR IF NOT 
O.-(R5) . sPuT BLOCK -RAODRESS INTO QUEUE 
Ro (F Bo) *R’ OR "W’ COMMAND FOR DRIVE ” 


SES C066 





uw 
oO 
(79) 
Oo 
a 
~~) 


CUMS 
(Dt OU EO —-ODD EE 
: £ £55 


+ + = & + 9-2 «f= B+ & <p 


8 


Ran 


- anna ooo ror a ora ota erator arate oth 
tt : 


ui 
Sup 


F 
a 


1533 906062 
534 
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MAIN PR 
gisee 001554 a toe RS iB k HEAT THE PARAMETER QUEUE 
RABE 5 Hey (RS)+" BVT END Be THE QUE 
go13"e BNE 2 i IF NOT NC_OF QUEUE 
} 43 HOV RO -(RS) UT Hoek, Roo £SS INTO THE QUEUE 
ge6037 oo0072 o01254 98s: sip SFAIRROD, .FAIRNS’ “ENTRY BEEN IN THE QUEUE LONG ENOUGH ? 
905260 900072 INC SFAIR(RO)  INCREMEN THE ENTRY COUNT 
M2702 o00002 ADD #2,R2 INCREMENT THE POINTER 
009702 BR 1 ;LOOK FOR SOME MORE DRIVES 
31 po1s32 3s: MOV sWAIT,RS : WAIT’. QUEUE ADDRESS 
005725 TST (RS)+ :LOOK FOR AN OPENING 
001376 . BNE .-2 BR IF NONE YET 
016245 901510 MOV Cur (RB CRS) j TOV DRIVE’S BLOCK ADDRESS TO QUEUE 
012701 o01510 10$: MOV BAVAIL, Ri val ABLE’ TABLE ADDRESS 
20 ADD Re, RI M ADDRESS OF LAST ENTRY © 
004737 O17460 ISR PC’ CMPRES SF ORM 60D THE TABLE 
OodsE& 5R 1$ ‘CONTINUE LOOKING 
:GET BUFFER ASSIGNMENTS FOR DRIVES IN THE *BUFFER WAIT’ Queue 
013700 001532 MAIN3: MOV WAIT, RO sMOVE THE WAIT’ ENTRY TO RO 
o0S046 CLR -(SP} sMRKE ROOM oN THE STACK FOR THE SUFFER ADDR 
004737 o1s5622 JSR PC. GETBUF Y TO GET A BUFFER 
012660 ofndocs MOV (SP}+, SBUF (RO) OE THE BUFFER ADDR TO THE DPS 
001002 QNE 1$ F A BUFFER WAS ASSIGNED 
090137 006132 JMP IDLE :NO BUFFER AVAILABLE YET 
004737 016172 18: ISR PC FILBUF - - sEILL THE BUFFE 
004737 016320 ISR PC’ GODRIV T THE ENTRY IN THE DRIVER 
905060 90057 CLR SFATR(RO) tee AR THE *FAIRNESS’ COUNT 
612705 001420 MOV #ORDERG, RE ;ADOR ESS oo ORDER QUEUE IN RS 
5725 TST S)+ T END OF THE QUELE 
00:376 BNE -2 BR IF NOT 
010045 MOV -( sPUT BLOCK ADDRESS IN, QUEUE 
105760 000026 TSTB =: $PACK(RO) OR COMMAND F 
901005 BNE 2$ oR IF YES DON’T PUT OB Bee E ATO *PARQ’ 
912705 oo1Ss4 MOV aPARQ,RS FINO THE END OF THE PARAMETER QUEUE 
oo57e° st (RS)+ s OPEN SLOT IN tHE QUEUE ? 
010045 MOV RO, -(RS) “PUT BLOCK ADDRESS INTO THE QUELIE 
012701 . 001532 23: MOV sWAIT.R1 ‘ADDRESS OF TABLE 19 TO COMPRESS 
004737 017460 JSR PC CMPRES :COMPRESS THE WAIT TABLE 
BR maine LOOK FOR MORE ENTRIES 
;WAIT FOR AN ORDER TO FINISH 
012701 oo1420 IDLE: MOV SORDERQ,R1 :ADDRESS OF THE ORDER QUEVE IN R} 
912100 1$: MOV (R1)+,RO :PUT BLOCK ADDRESS INTO RO 
001433 BEQ IDLEL :BR IF END OF QUEUE 
005760 oo00l6 TST STATUS(RO) ‘SEE IF DRIVE FINISHED 
001773 EQ 1$ ;BR_IF DRIVE NOT FINISHED 
162701 ooodo2 UB #2, R1 :CORRECT THE QUEUE POINTER 
0101 MOV R1,-(SP) :SAVE THE QUEUE ADDRESS 
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006156 


001405 


015456 


006470 
901264 
6454 


177 
001554 


172666 


172606 
172576 


000100 


000102 
000404 


000102 
000074 


000104 


RPOW’S’6 MULTI-DRIVE EXERCISER 
PROGRAM 


ISR PC, STATIS sACCUMULATE STATISTICS FOR DRIVE IN RO 
NOP ‘DEBUGGING AID 
JSR PC, PROCES :PROCESS END OF ORDER 
CLR ADSEC : CLEAR THE a Oe TRK/SEC ERROR INDICATOR 
JSR PC, ABNRML :SEE IF AN IVES He VE TOO MANY ERRORS 
ISR PC’ EOP -SEE IF ANY DRIVE HAS XFERED exits BITS 
MOV (SP)4+.R1 :RESTORE THE ORDER TABLE IN 
MOV BAVAIL,RS ‘FIND THE END OF THE AEE AT ABLE’ TABLE 
23: TST RS)+ ‘END OF THE TABLE ? 
BNE 2g :BR IF NOT AT END OF LIST 
MOY (RL). -(RS) :MOVE THE BLOCK ADDRESS INTO THE TABLE 
ISR PC, CHPRES ‘COMPRESS THE ORDER QUEUE 
J5R PC’ RELBUF *RESTORE BUFFER 
IDLE!: TST cFLAG :*CONTROL C’ FLAG ENTERED ? 
BEQ 1$ BR IF It WAS 
ISR PC.KSR s SERVICE THE KEYBOARD 
18: BIT #SWO2, ISWR TY YPE PERE ORMARCE SUMMARY 
Ist SIATIN TIME T9 TYPE THE PERFORMANCE SUMMARY ” 
CLR STATIN :CLEAR THE INDICATOR 
ISR PC STATPR :TYPE THE SUMMARY 
23: is PaRO sENTRY IN THE PARAMETER QUEUE ? 
OER P CPAR sPUT ie Eee Feet oR NEST D ERATION 
MOV pat iSehup fo ¢ COMP cess, THEE 
JSR PC oneReS MPRESS THE PEREMETER CUE 
3s: JP = MAIN SEONTINUE THE LOOP 
:SETUP TO REFORMAT AN ERROR SECTOR 7 
REFMT: BIT aSHO, SUR ;READ ONLY SWITCH SET ? gS) 
Be UO SSuR Sur CH 7 SET ? [a 
BNE REFMTX IF IT IS 
I I FORMAT :URITE He HEADER & DATA ORDERS ALLOWED ? 
MOV SRPCC (RO) snove Ag) ENT CYLINDER 
JSR PC, READDR GET iuge,P TE secto ! TRACK ADDRESSES 
ive (SP +, SATA} eee AT \ 
MOV a3e0. Bo Rd)? oR COU COUN rik FE senor j 
CHP ci Na FULL CTOR BE WRITTEN 
MOV es. SNWROL(RO)’ RT F iT cal SIZE INTO THE DPS 
18: MOVB #3, $NCODE(RO) ; COMMAND CODE 
JSR PC’ GETPAT :GET A PA 
MOVB =. SNPATC (RO) “PATTERN CODE TO CONTROL BLOCK 
MOV 1,8 sScT PARAMETERS SELECTED INDICATOR 
MOY SEi UP TO SEE IF BLOCK KIN THE PARAMETER QUEUE 
23: TST we : SEE ir a END OF TABLE 
BEQ (RD) ‘BR IF AT END 
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O064S4 
Sé 


0 0 bb 0 po 
COrrrrrwrmw 
+ bb 6 0 b- e 


GI OWD IMU LIfe 


fururore 


Atte 


aoe 


- A Na A AR kN a a ak 
££ 
H528 yy 
e o 
2 wi 
Petes ny 


o Na Ma Ne Ms Ms Mh ht 
Ww 
: 


OGE55 
l66e 006672 
1664 006676 


S613 
005041 


Bie 


111037 
1004e: 

932760 
001410 
032760 
001017 


032760 
001013 
004737 


013746 
104403 


017460 


001246 
000016 


10C000 
040000 
040000 
012720 


RPOW’S/’6 MULTI-DRIVE EXERCISER 
MAIN PROGRAM 


000234 
000234 
O0024s 


O2 172370 


po0200 
007214 


01090 
004000 
002000 
001000 
040002 
oo0004 


poi tee 
045326 
052611 
001e46 


000016 


000016 
000916 
cOCo16 
000016 
000016 
000016 


REFMTX: RTS 
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;PROCESS THE ORDER TERMINATION 


PROCES: MOVB 
TST 


1$: JSR 


es: RTS 


RO, (RL)+ SEE IF Bock AT PRESENT POSITION 
2$ :BR FN 

=(R1) : CLEAR THE ENT 

BC, CHPRES :CORFRESS THE FABLE 

(RO) DRIVE NUMBER FOR ANY ERROR MESSAGES 
sraree ena) :SEE IF DRIVER SIGNALED AN ERROR 
ERPROC ERROR 

#BITIS, SRPCS1(RO! ;SEE IF 'SC’ SET 


T SET 
#BIT14, SRPCS1(RO! ;SEE IF TRE’ SET 


#61714, SRPDS1 (RO ;SEE IF ’ERR’ SET 
ERPROC’ ;BR'IF SET 


PC, CKERR NO ERRO aR CHECK ERROR BITS ANYWAY 
PC’ CKBUS ?NO ERROR CHECK BUS ADDR 8 WC 
#SH01, aSWR ;DATA COMPAR —? 

PC, CMPAR :NO ERROR, COMPARE DATA 

PC : RETURN 


;ORDER TERMINATED WITH AN ERROR - PROCESS THE ERROR 


ERPROC: BIT 
BEQ 


SET 
R IF ORDER BION” T COMPLETE sonmed.y 


ae » STATUS (RO) ;OD0NE BIT 
DONE :PROCESS ERROR WITH "DONE’ BIT SET 


;PROCESS ORDER COMPLETION WITH ’ERRUR’ & "DONE NOT’ BITS 


ERPRO1: BIT 
8 


#BIT12,$TATUS(RO) ;SEE IF DRIVE WAS UNSAFE 
#B1T11, STATUS(RO) PARITY ERROR OCCURRED 
#BITIO,STATUS(RO) ;FATAL PARITY ERROR? 

FAL . ONE 

481109, ,STATUS(ROS ; j TIMEOUT? 

wB1T14!B1TO1, sTatuS(RO) ;DRIVE WENT OFFLINE ? 
sit ,STATUS(RO)’ ;PORT REQUEST TIME OUT ? 


;BR IF IT DID 
‘ERROR. RETURN 


;DRIVE IS PERSISTENTLY UNSAFE 


PUNSAF: TYPE 
TYP 


TYPE 
MOY 





. SCRLF :CR- 
"EMLe OTE, UNSAFE’ MESSAGE 
ORNUM DRIVE NUMB 
UNIT, -(SP) :; SAVE UNIT FOR TYPEOUT 


:: TYPE DRIVE NUMBER 
3;GO TYPE--OCTAL ASCII 








104401 
104401 
600404 


104401 


013746 
104403 


001165 
02 


001165 
045273 
052611 
001246 


001165 
023354 
100600 


001246 
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VE 

if -! 

TYPE ° .S$CRLF 
JSR - PC. LINE 
DISPLY ,EMIe 
JSR ss PC, LINE@ 
JSR PC LINES 
JSR PC'LT 
J5R PC’ INCTOT 
JSR LIN 
IMP op 


;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 


UCPAR: TYPE  ,SCRLF 
TYPE EM10 
PALPRI 


;"FATAL’ MASSBUS PARITY ERROR OCCURRED 


FALPAR: TYPE, SCRLF 


P "EMLI 
FALPRI: TYPE ORNUM 
MOV UNIT, -(SP) 
TYPOS 
.BYTE 2 
"BYTE OC 


RLF 
ISR Bee INCTOT 
BIT aStlls, aSWR 


BEQ 
HALT 
18: RTS PC 
;SOFTWARE TIMEOUT OCCURRED 
SUTIM: JSR PC, LINEL 
DISPLY ,EMI3 
SR PC, LINE2 
JSR PC’LINE 
JSR PC;LINEY 
JSR PC; INCTOT 
JSR PC’ LINE? 


;DRIVE WENT OFFLINE 
OFLIN: TYPE SCALE 


TYPE 7 EM14 

TYPE /DRNUM 
MOV UNIT, -<SP) 
TYPOS 






SEQ 0070 
; TYPE 2 DIGIT(S) 
ters LEADING ZEROS 


PRINT LINE 1 OF ERROR MESSAGE 
;PERSISTENT EVICE UNSAFE MESSAGE 
LINE 2 OF ERROR MES 


SPRINT LIN 
DROP THE D 


;CR-LF 
iy INCORRECTABLE PARITY ERROR’ MESSAGE 
FINISH PROCESSING THE ERROR 


; CR-LF 
; FATAL PARITY ERROR’ MESSAGE 
DRIVE NUMB 


:;SAVE UNIT FOR TYPEOUT 
33 TYPE DRIVE NUMBE 


;G0 T 
33 TYPE 2 DIGIT(S) 
igure LEADING ZEROS 


R- 
; INCREMENT TOTAL ERROR COUNT 
;HALT ON ERROR ? 


R NO 
ERROR HALT 


;PRINT LINE 1 OF ERROR MESSAGE 
;PRINT THE TIME OUT MESSAGE 
;PRINT LINE 2 OF ERROR MESSAGE 
;PRINT LINE 3 OF ER MESSAGE 
PRINT LINE 4 OF ERROR A 
; INCREMENT TOTAL ERROR COUNT 
;PRINT LINE 7 OF ERROR MESSAGE 
; RETURN 


DRIVE WENT OFFLINE’ MESSAGE 
:; SAVE UNIT 4 TYPEOUT 
33 TYPE DRIVE NUMBER 


ZRID-A, RPOWS/6 OAL S-ORIVE EXERCISER MACYL1 27(655) 28-APR-76 17:04 PAGE 35 SEQ 0071 
DZR 019 MAIN PROGRAM 


ro Re LLSUPERESS LEALING ZEROS 


eR LINE 1 OF THE ERROR MESSAGE 
MESSAGE 


fa a MENT TOTAL ERROR COUNT 
;PRINT LINE 7 OF THE ERROR MESSAGE 
; DROP THE DRIVE 


SPRINT LINE 3 OF THE EPR 
:PRINT L OF THE ERROR MESSAGE 


;PORT REQUEST TIMEOUT ERROR 


PRTIM: JSR PC, LINE1 OF THE FFRROR MESSAGE 
LY ,EM : TIME OUT 
OF THE ERROR MESSAGE 
OF THE ERROR MESSAGE 
| OF THE ERROR MESSAGE 
: TOTAL UN 
021712 PC’ LINE? TYPE L OF THE ERROR MESSAGE 
PC RETURN 


;PROCESS ORDER COMPLETION WITH "ERROR’ & ‘DONE’ BITS SET 


000030 900016 DONE: 2 SST TORSITES, aia Ah Se asi OCCURRED 


012416 JMP UNSAF REPORT UNSAFE 
040000 000244 WeTT1Y, SRPCS2(RO} 31S *WCE’ SET ? 


1 -B 
oyooo0 s00246 #BIT14, SRPDS1 (RO) iCHECK * ERR’ 


012162 JMP RFER : PROCESS TRE? 
000400 000250 : a5} 08, »SRPERL(RO) eo SET? 


MP HCRCER PROCESS "HCRC’ 
co0250 x be sen 90) "EMT? SET? 


OT SET 
011022 JMP CKF CHECK FORMAT ERROR 
000200 000250 ch , SRPER: sero}; ee. SET? 


Bh IF N 
011216 CHECK 
o20900 


010640 
000020 


000250 
011516 
000010 
011650 
000040 000250 


012320 
002000 000250 


011742 ten REPORT * TRE’ 


000250 
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eBITL1, SRPER1 (RO) 1b WE SEI a 
CEER poet PHLEY 
NBITS, SRPERI(RO)’: "AOE ae T? 
R IFN OT SET 
BETT10, SPOS CRO -'iST’ SET? 


IF SET 
AOE’ & ’LST’ SET. EXIT 
dia *OTE’ SET 
DTEER ‘REPORT 'DTE’ ERROR 
#BIT14, SRPCS2(RO) | sSEE IF *WCK’ SET 

+6 RIF NOT SET 


WCKER REPORT WCK’ 
$RPER1 (RO) ;SEE IF 'DCK’ SET 
+6 :B NOT 


“ 


004000 900250 


011774 
001000 900250 


oo2000 -o00246 


DODoOwWw.0w 
me. 


010000 000250 


Oll6e6 
040000 o000244 


010312 
009250 


Tl e—4 —4IT iT 
oQauMoe 40-4 


PC 
#81712, ,SRPERL (ROS. 


a 
4ve-+ 


oO) 4100A0M0n 
woam % 


007520 MP DCKER “PROCESS 'DCK’ 
140000 000276 eOTTIS:BITI4, SRPERICRO) 5 SKI OR ’OCYL’ SET 


Ole2be exTER ;REPORT ERROR 
010770 DRVER REPORT DRIVE ERROR 
;PROCESS DATA (’DCK’) CHECK ERROR 
010042 000300 DCKER: 44 + pibmanadeinaee” De ha POSITION COUNT ? 
000300 et SRPECL(RO) :BOSETION COUNT 0? 
000302 $RPEC2(RO) :VALUE IN PATTERN REGISTER ? 
| BNE 4S :BR_IF_YES 


TYPE FIRST LINE OF ERROR MESSAGE — 
STYPE PECC LOGIC ERROR” 
YPE LINE 2 OF ERROR MESSAGE 
pc’ INCTOT INCREMENT TOTAL ERROR COUNT 
ER 
SUCCESSFUL 


#3; RETR 
PC’ SRETRY RO 
PC, LINEGC 6C OF ERROR MESSAGE 
BR 3$ : ERROR REPORT 

2$: PC, LINESD : PE 6D OF ERROR MESSAGE 

3: 15 PC’LINE? :TY ? OF ERROR MESSAGE 

ug: PC, SPOTCK : ERROR A aT A AD SPOT ON THE PACK 

S$: PC eIT I ON’ T REPO 

000001 SCODE(RO),#1  :IS ORDER A WRITE BHECK ? 


;BR_IF_NO 
KER ;REPORT ERROR UNDER WRITE CHECK PROCESSING 
6$: JSR ;PRINT LINE 1 OF ERROR MESSAGE 
EMel ;DATA_C ERROR 
DCKER1: 1 ; 5 


0 
N 


RROR MESSAGE 
ae pep ea 


G 
OR 10. NE PRINTED 
RROR M iSK 


m TBAD sSEE IF BAD SE 
001250 wbtris!B1T12!B1TOE insk. ; LOAD 


OF 
OF ER 
4 OF ERR 
CT 
E 
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pg770o . 010100 o00es0 | ay #BITl2e!BITOb, Seren Te set -CHECK 'DTE’ & ’ECH’ 
aay 021602 of C,LINES speint ‘ le He ERROR OF ioe tos 
0077 ag RROR 


007716 000020 O0leSe 1S: #16. ,RETRY RETRY Y COUN 
007724 005001 LR Rl 1 IS OFFSET os POINTER 
000262 S| ies ,SRPOT (ROY nas O8 DRIV RPOG ? 


sicher Bast RPO& OFFSET CODES 
se ERS THE BUFFER 
THE ADDRESS OF THE ERROR SECTOR 
RACK ADDRESS OF ERROR SECTOR 
gs eg OF ERROR SECTOR A 
0), RU) ;PRESENT ort INDER 
fer’ RO) ; SWRDL ( RQ) ioe IF TRANSFER LENGTH LESS THAN 1 SECTOR, 
cf 
(F 


IS; we PRESENT TRANSFER LENGTH 
00002C $SSEC(RO) , SWROL RANSFER SIZE TO 1 SECTOR 
000004 $SWROL (RO) , SWROM ORD B Se OPERATION 


SWRON (RO) ’ NAE COUNT TO 2° 

P thee space FOR NEW BUFFER ADDRESS 
(3s SBUF (RO) sNEH_GUFFER ADDRESS TO DPB 
STATUS CRO) TEST 
3$ 


He 


FOR DONE 
R IF NOT DONE 
10$ IF NOT ERR 
i”. |sraTus(Ro)' ; SEE NOP TERMINIATED NORMALLY 


JSR NCTOT ~— INCREMENT TOTAL ERROR COUNT 
DISPLY CtNGN : DIFFERENT ERROR DURING RETRY’ 
JME _ERROR a 


ag ____3SEE WHICH 
000250 : T MASK, SRPERI(RO) ;LOOK AT CURRENT GRO 
BEQ IFFERENT ERR 
000250 SETTESIOI Te, sReERL(RO) ether on "TE" STILL SET ? 


ITHER SE 
RET RY+1 ; INCREMENT RETRY COUNT 
001253 el »RETRY+1 Ree. 


NOT 
NC Rl INCREMENT TABLE INDEX 
044647 OFFCOD(R1), cENOPR+SFNT : OF FSET CODE 

EAD OF OFFSET TABLE 


I 
001252 ie, 2 RETRY NE RETRY LIMIT 
GEADPBSSTATUS :SEE IF FINISHED WITH OFFSET 
NO ERROR PERFORMING OFFSET 
8 MESSAGE 


FRUDS 2 ERR 


Satan 


PC, LINES 
PC; TNCHRD 
PC; INCTOT 
PC; LINE? 
014772 PC  PRTBAD 


BR 13 ;CLEAN UP AND RETURN 
021622 : PC,LINE&B ;PRINT LINE 68 OF ERROR MESSAGE 
021540 PC;LINESB :PRINT LINE 5B OF THE ERROR MESSAGE 


OOOO OVOVOVOOVOOVOO00000 
ee eh ee 


RENTVOFVFOR OL 


im 
wr 


Ol 
01 
O01 
Ol 
01 
Ol 
01 
O01 
Oi 
Cl 
01 
O01 
O01 
Ql 
01 
Oi 
O01 
01 
01 
01 
01 
Ol 
Oi 
01 
Ol 
01 
O01 
01 
O01 
01 
Oi 
01 
O01 
O01 
O01 
01 
01 


RR 
£oO 
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023234 8$: } PC, INCSOF ; INCREMENT *SOFT’ ERROR COUN 
014232 eR PC, ECC ; RORRECT THe BRPPB USING Ecc. AND CHECK IT 


021636 98: 
peiehs so 
nae “DEER Bot COUN 


S ERROR T IN TE poRee 
13$ "BRANCH IF ERR 
023354 ISR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
Si 460 ¢ LIiN9G ; DATA COMPARE OK’ MESSA 
021712 12S: SR PC, LINE? :PRINT LINE 7 OF ERROR MESSAGE 
08324 138: 38 BC, REFHT REFORMAT THE ERROR SECTOR 


01 
Ol3iee 
001301 


Mama 
“ 


SRT RIE Binh 


OONVOOOOOOSVN ONOOOOOVOO OMIOOOOOVI0300000 
oO 
<= 


;WRITE CHECK ERROR PROCESSING 
. 0002S WCKER: BIT #BITIS,SRPERI(RO) ;SEE IF ’DCK’ SET ALSO 
BNE ;8R IF IT 


PRINT LINE 1 OF ~_ MESSAGE 
: PRINT hice & DCK NO 
:CLE RROR_ MASK 
sPRINT LINE 2 OF eles MESSAGE 
F PRINT LINE 3 OF ERR 
3 RINT LINE 4 OF ERR 

PRINT CINE S_ OF ERR OR A 
er Unt ERROR COUNT 


#3, 

PC, SRETRY ;RETRY THE OPERATION 
Bg TR UU CE ASE an 

C,LINESC ;PRINT LINE ERROR 1+ pe 
FINISH PROCESSING THE ERROR 

PC, LINE6D sPRINT LINE 6D OF ERROR 1 a 

1 ;FINISH PROCESSING T 

vero 0 


: BI 
PC LINEL sPRINT LINE 1 OF ERROR MESSAG 
010452 #EMe2 ASSUME THAT EN22 WILL aE PRINTED 
000244 SITIO. Shpcsocroi >DID ’WCK’ ALSO SET 
BNE 2 -BR'IF IT 


1 
0104S2 #EM37, 138 ;MESSAGE FOR "DCK’ AND *WCK’ NOT DURING 
;WR CHECK 


Sean cune SosumNeERS 
SanoeRe Toe ReeeRONES 


8 
a9 
we 


Pepsi 
wre 

Re eR me mee eee me eee 
2 22 

££ 

MwMo 


8 


1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
190 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


z 


NES PRINT LINE 5 OF ERROR MESSAGE 
000250 Wetton. SRPERI (RO! *ECH SET ALSO ? 
FINISH PROCESSING THE ERROR 
p00020 ooles2 3$: #16. RETRY RETRY LIMIT - 16 (10) 
016320 : PC, GODRIV : RETRY GE ORDER 





MD-11-DZRJD-A, 
DZRID. 919 


aR 


OOO GOON OOOO OOOO0OOO0000000 


Boo 
Bees 
— bb = = b— b= b= > b— b= 6 bb = = = b= bh ee [a a oe 


REP RS Bt SS: 


a 


wa 


oO 
ih 


ae 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 


wr 
w 


aaaa aaa ea 
SR al el i 


SSS 
iat) 


an 
wo 


atatntnt yt 
LOO 


ated tat 
ear 


PRbaneee 


RPO4/S/6 MULTI-DRIVE EXERCISER 
MAIN PROGRAM 


000016 
001253 
021630 


001253 
001eS2 


100000 
000100 
021630 
022160 
oei7i2 


023354 
021712 
006324 


00 
015330 
021630 
0217 le 
0216 
Bei sis 


006324 


020130 


000244 


001250 
001252 


MACY11 27(655) 


S$: ; hones 


6 

RETRY+1 
PC, LINE&C 
9$ 


RETRY+ 


RY+1 
RETRY, RETRY+1 
aBITIS, "SRPERL(ROV” ;*DCK’ 
#BITO6, SRPER1(RO} 


4 
PC, LINEEC 
BR gg’ 
7$: PC,LINES 
BR 


8$: PC, INCTOT 
PC ’LINE7 


1 
9s: PC, INCTOT 
10S: PC,LINE7 
Pe REPT 
118: 
;REPORT *HCRC’ ERROR 


HCRCER: PC, SPOTCK 
BR 


PC LINEY 


eBiTi4, srpcs2cro} 


#3, RETR 
PC; SRETRY 
25 
PC, LINEBC 
PC?LINE? 
3s" 

C,LINEGD 

Be’CINE? 
PC’ REFMT 
PC 


2s: 


3$: 
;REPORT DRIVE ERROR 
DRVER: JSR PC,LINE 


28-APR-76 17:04 PAGE 39 


;ORDER FINISHED ? 
iB F NOT 


F 
lb RETRY COU COUNT 
LIN BC OF RROR MESSAGE 
FINISH RROR PROCESSING 
; INC REMENT RETRY COUNT 


R IF ‘at Se TRY LIMIT 
TE NOT = - "DIFFERENT ERROR 
#50 SET 


BR RETRY * ORDER 
: PRINT att Sc OF ERROR MESSAGE 
SFINISH PROCESSING ERR 

‘PRINT LINE § - “QIEFERENT ERROR ’ 
FINISH” PROCESSING ERROR 

* INCREMENT TOTAL ERROR COUNT 
sEINESH THE ERROR MESSAGE 


X 

; INCREMENT TOTAL ERROR COUNT 
SFINISH THE ERROR MESSAGE 
sREF ORMAT THE SECTOR IN ERROR 


;SEE_IF ERROR AT PACK BAD SPOT 
sEXIT_IF IT IS 
pul itm d, OF ERROR MESSAGE 
PRINT LINE 5 4 ERROR MESSAGE 
s PRINT T tie 3 RROR MESSAGE 
RROR MESSAGE 
sTUCE” ERRO R ALSO 


{DIS LAY WORDS WHICH CAUSED ‘WCE’ 
INCREMENT 'SOFT’ ERROR COUNT 

; INCREMENT TOTAL ERROR COUNT 
;SET ERROR MASK 

sRETRY Lan 

;RETRY ORDER 

RETRY NOT SUCESS 

:PRINT L LINE gC OF. FRROR ME 
iPR uw LIN OF ERROR ME 


SS 

SSA 

:PEINT LINE 6D OF ERROR MES 
PRINT LINE 7 OF ERROR MESS 
REFORMAT THE ERROR SECTOR 


AGE 
GE 
SAGE 

AGE 


SPRINT LINE 1 OF ERROR MESSAGE 


§- 





a9 


PRLELES 


ww 
w 
~~ 


bb 6 B= b= ps B= pb pe 


Beas 


peter 
bs be 
£0 


SENT TOR ESee IN SSeS 


1] 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ob bb bb 0 bb 0 0 bb 0 0 0 bb bb 0 bb bb 2 
= b= b= 6 0 bb BF bb 0 = bo br 0 2 2 0 2 2 9 bo bb 2 0 bp pp 


rT 
babe 
£0 


fo oe | oe | oe | oe | oe) oe | oe) oe) 


ZIP RRC GEEN 


RPO4/S/6 MULTI-DRIVE EXERCISER 


MAIN PROGRAM 


001402 


046125 
020174 
020602 


beiviz 


000400 
010640 
Oeee44 


015246 
000400 


0e171e 
21636 


0 
021712 
006324 


000400 
010640 


000400 


010000 
000272 


001250 
001252 


000250 


044702 


054374 
054374 


DISPLY 
JSR 


;PROCESS FORMAT 
CKFMT: BIT 
BEQ 


1$: 


4§: 


SS: 
;PROCESS HEADER 
CKHCE: - 

- . BE 


1$: 


MACY11 27(655) 
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;REPORT DRIVE ERR 
sPRINT LINE 2 4 ER RoR 
INT LINE 3 


SSAGE 
| ic ore Pe a im 
(*FER’) ERROR 


| ile SRPERI (RO) ;HCRC’ SET ON ORIGINAL ERROR ? 

1$ NOT SET 

REP ORT _HCRC_ ERROR 

GET CORRECTED TRACK & SECTOR ADDRSSES 


READHD READ HEADER 
otis. GENREG+RPERI ;7HCRC? SET WHEN HEADER READ? 
2g -BR’IF ’HCRC’ SET 


*NO, ERROR IS *FMT’ ONLY 
SEE IF ERROR AT BAD SPOT ON THE PACK 


sE IF 
;PRIN NT LIne 1 OF ERROR MESSAGE 
HEADER READ ERROR - FMT BIT DROPPED UP 
PRIN NT LINE 2 OF ERROR MESSAGE 
sPRIN mt LINE 3 OF ERROR MESSAGE 
T LINE 4 OF ERROR MESSAGE 
sSHCE” ERROR ALSO ? 


DISPLAY WORDS WHICH CAUSED "WCE? 
:DISPLAY HEADER 

j INCREMENT SOFT ERROR COUNT 

; INCREMENT Md ERROR COUNT 


FMTER 
PC, SPOTCK 


PC’LINEY 
seITIN, Recse(RO} 


T SUCESSFUL 
T LINE gt OF ERROR MESSAGE 
pt LINE 7 OF ERROR MESSAGE 


sPRINT LINE gp OF ERROR MESSAGE 
SPRINT LINE 7 OF ERROR MESSAGE 
REFORMAT THE ERROR SECTOR 

; RETURN 


COMPARE (’HCE’) ERROR 
#BITB, SRPERI(RO) sHCRC SET ON ORIGINAL ERROR ? 
1$ IF_NOT SET 


HCRCER REPORT HEADER CRC ERROR 
PC, READDR GET CURRENT SECTOR & TRACK ADDRS 

READHD READ HEADER OF CURRENT SECTOR 
WetTe. GENREG+RPERI ; s THCRC™ SET ? 


:BR' IF 
#BIT12,CYLDER _;CLEAR FORMAT BIT FROM HEADER 
$RPCC(RO),CYLDER’ ;CORRECT CYLINDER 

es -BR IF IT IS 
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011442 ;REPORT POSITIONING ERROR 
Z bigogp OS4374 2S: B18 ine »CYLDER iReSy Re TH T FORMAT MAT BIT 


017772 3S: t, SPOTCK an i ERROR A wn SPOT 
PC LINE PRIN T LINE 1 OF 1 OF ERROR ME 
Be finee ci TLINE * Re OB RROR ee 
PC, LINES LINE 3 OF ERROR MESSAGE is 


ob 
aro eraryty 
TPL 


s 


PC’LINEY iP INT t LINE 4 OF ERROR MESSAGE 
000244 #6iT14, SRPCS2(RO} s MCE’ ERROR ALSO ? 


;BR'IF_NO 
; DISPLAY ores WHICH CAUSED *WCE’ 


Base 


OR CO 
+ INCREM MENT TOTAL ERROR COUNT 
ROR MASK 


See 


001250 
00125e ;RETRY ul IT 
015330 PO’ SRETRY ;RETRY THE ORDE 
BR $ jRETRY NOT SUCESSFUL 
021630 PC,LINE&C PRINT LINE 6C OF ERROR MESSAGE 
Oe171e yea tPR RINT LINE 7 OF ERROR MESSAGE 


BR T 
021636 5S: PC,LINE6D PRINT LINE 6&0 OF ERROR MESSAGE 
0217 1e PC, LINE? :PRINT LINE 7 OF ERROR MESSAGE 
006324 PC, REFMT ee THE ERROR SECTOR 


6$: PC ; RETURN 
;REPORT POSSIBLE POSITIONING ERROR 


015170 POSER: PC,RECALT ; RECALIBRATE 
' “PRINT LINE 1 OF ERROR MESSAGE 
‘PROGRAM DETECTED POSITIONING ERROR 
PC LINE? “PRINT LINE 2 OF ERROR MESSAGE 
PC’LINESC *PRINT LINE 3C OF ER ROR MESSAGE 
054374 #BiT12,CYLDER ;RESTORE THE FORMAT BI 
INESA *PRINT LINE SA OF THE ERROR MESSAGE 
INCREMENT MISPOSITIONING COUNT 
INCREMENT TOTAL ERROR COUN 
PC *LINE7A iB INT LINE 7A OF ERROR SE CcAGE 


2a 


OOOO VDOOOOVOOOOOVOOOO000000 
pear eey ens 
omVMo 


ob bb be 0 0 2b 9 0 0 0 bb 8 bo 9 pe pe pepe pe 
—_ > b= b= b= bb 0 0 bb pp pp 


FELLOW 


sip 


B 


;REPORT *OPI’ ERROR 


OPIER: PC, SPOTCK ;SEE IF ERROR AT BAD SPOT 
R PC RETURN IF IT 
ayy be OF ERROR MESSAGE 


;PRINT LINE 2 OF ERROR MESSAGE 
"LINEY 
J C’ INCTOT t INCREMENT TOTAL ERROR COUNT 
a 001250 MOV WettiS MASK “ERROR MASK 
000003 001252 OPIERI: MOV #3, RETRY *RETRY LIMIT 





| MO-i1-O2RT0-A, REOY SG 


NE A TE A SN SS SSS ss 





a RY + 
DIRIO. O19 
20s? 011570 
2038 011574 
2039S Ol11S76 
site 011802 
101 O11606 
2ide 011610 
2103 911614 
e104 911620 
2eics Ollse4 
2108 
2107 
2i08 
2109 011626 
eli0 Oile3e 
€:ll O116348 
eli2 QO11640 
€li3 O21644 
e114 
e1is 
211s 
eli? 011650 
2118 Ol1é545 
2119 011660 
e120 1 1664 
elel O11&7 
elee 911674 
ete3 911700 
eied 611706 
2125 4911714 
ele& 911720 
gle? Jli7ee 
eie8 Ollreb 
eieS 911732 
2130 011734 
2131 911740 
else 
2133 
2i3ss 
2135 011742 
2136 911746 
e137 611752 
2138 911756 
el3$ 01176e 
e140 Cil7sé 
el41 9011772 
ele 
2142 
2144 
el45 011774 
e146 012000 
2147 012004 
e148 912910 
e149 Q1¢014 
2:50 012020 


104414 
la! 


000207 


ROM \ anata EXERCISER 
MAIN PROGRAM 


015330 
021630 
O21? le 


021636 
9217 le 
a 


023354 
pete 
O00003 
015330 


021630 
02172 


021636 


1$: 


;REPORT 
DTEER: 


:REPORT 
PORER: 


13: 
2s: 


;REPORT 
IAEER: 


; REPORT 
WLEER: 


MACY! 27(6SS) 


BR 1$ 

ISR PC, LINEGC 
JSR PC; LINE? 

RTS of 

ISR PC, LINEGD 
TSR PC LINE? 

JSR PC’ REEMT 

RTS 

"DTE’ ERROR 

JSR PC, SPOTCK 
RTS pC’ 

ISP PC LINEL 

DISPLY .EM3e 

IMP OCKERI 


*PAR’ ERROR 


JSR PC, LINEL 
OISPLY EM33 


SR PC, LINES 
ISR PC'LINESE 
JSR PC’LINES 
JSR PC‘ INCTOT 
MOV #8fT03, MASK 
MOV 83, RETRY 
3k PC’ SRETRY 
JSR PC, LINE6C 
JSR C{ LINE? 
RTS 
JSR PC LINEED 
SR 
"IAE’ ERROR 
JSR PC, LINEL 
OISPLY ,EM3S 
ISR ®C LINES 
35R PC, LINE SF 
5R PC’ INCTOT 
JSR Ci LINE? 
RTS 


*WLE’ ERROR 
JSR PC, LINE! 


JSR c LINEe 
Tek BE, INCTOT 
JSR = PC LINE 

RTS = PC 


ae ee eee 


28-APR-76 i7 





:04% PAGE 42 


SE3 C078 


;RETRY THE ORDER 

RETRY UNSUCESSFU 

iPR IN wt LINE 6C OF ERROR MESSAGE 
PRINT LINE 7 OF ERROR MESSAGE 


yEXIT 
: PRINT LINE a oF ERROR MESSAGE 


PRINT LINE 7 OF ERROR MESSAGE 
REF Onna THE PRROR SECTOR 


BRoR AT BAD SPOT 

a OF ERROR MESSAGE 

CESSING THE “ore” ERROR 
OF ERROR MESSAGE 

2 OF ERROR MESSAGE 


s PRINT LINE 1 
EFORT. “PAR: 


STNCREMENT TOTAL ERROR COUNT 


:E 
:RETRY LIMIT 
;RETR Y ORDER 
;RETRY UNSUCESSFUL 
sre TRY SUCESSFUL 
abe. NT LINE 7 OF ERROR MESSAGE 


‘BRIN NT LINE 60 OF ERROR MESSAGE 
‘FINISH: ERROR MESSAGE 


;PRINT LINE 1 OF ERROR MESSAGE 
ORT *WLE* 


:R 
: PRINT LINE 2 OF ERROR ore 
s INCREMENT TOTAL ERROR C9 

joint ¢ OF -ERROR NE SSaGE 





MO-11-D2R70-A, 
D2RID.919 MAIN P 
2151 
5i35 
sis 012022 004737 9201 
8155 o1<Ceg 104414 96043 
388 Bisose Dowas O50 
e158 Qle0¥e 0473" Dele 
2159 O12046 032760 040000 
2160 912054 9001402 
2161 012056 OO4737 021346 
2162 912052 204737 021446 
2183 012066 604737 023354 
2164 012072 004737 O2l7le 
2165 012076 900207 
2156 
2167 
else 
2183 012100 004737 O2C 
2170 O12104 104414 046070 
2171 12110 904737 920174 
el72 12114 904737 
2173 Oleie0 o04737 O2les6 
2174 12124 932760 o40000 
2175 O12132 001402 
2176 O12134 004737 021346 
2177 Ole140 004737 021446 
2178 12144 004737 923354 
2173 012150 004737 21712 
2180 912154 904737 006324 
2181 Ol2160 900207 
E182 
2183 
2184 
2185 O12162 004737 020130 
e186 Oieibs 104414 O4s545 
2187 Olei72 004737 020174 
2188 012176 904737 020602 
2182 Qieere 004737 Oele 
2190 Oie206 004737. 023364 
2191 Olz212 032760 121400 
21S Oleceed 01415 
2193 Ole22e2 012737 o00003 
| HB Bigeso o0so37 goes 
2195 912234 004737 015330 
| 2196 12240 000403 
2197 Cles4¥2 004737 021630 
| 2198 O12246 odo04de 
| 2193 O12250 904737 021636 
| Be00 612254 004737 O21712 
| 2201 012260 000207 
| €E0e 
| ge02 
e204 
| 


ee oe 
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000244 


ood244 


000244 
001252 











;REPORT FORMAT ERROR 


FMTER: JSR PC, LINE! :PRINT LINE 1 OF ERROR MESSAGE- 
DISPLY .EMeb :FORMAT ERROR 
JSR PC LINES ;PRINT LINE OF ERROR MESSAGE 
Y5R Py. LINES SPRINT LIN OF ERROR MESSAGE 
JSR T EINE 4 9 4 OF ERROR MESSAGE 
BIT bethiae gepcsocroi tC R ALSO 
BEQ 1$ :BR'I 
JSR PC, LINES :DISPLAY WORDS WHICH CAUSED ‘WCE’ 
18: JSR PC’ LINES :PRINT LINE SA OF ERROR MESSAGE 
JSR PC‘ INCTOT ‘INCREMENT TOTAL ERROR COUNT 
58 e* LINE? :PRINT LINE 7 OF ERROR MESSAGE 
:REPORT HEADER COMPARE ERROR 
HCEER: JSR PC, LINE] sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY ,EMe? “HEADER COMPARE ERROR 
ISR PC LINE? ‘PRINT LINE 2 OF ERROR MESSAGE 
JSR PC’LINES s PRINT LINE 3 OF ERROR MESSAGE 
JSR C* LINES *PRINT LINE 4 OF ERROR MESSAGE 
grr agi T14, SRPCS2(RO) + WCE ERROR ALSO ? 
ISR PC, LINES ‘ DISPLAY WORDS WHICH CAUSED ‘WCE’ 
1$: JR PC;LINESA :PRINT LINE SA OF ERROR MESSAGE 
JSR PC,INCTOT . | ;INCREMENT TOTAL ERROR COUNT 
J5R PC’LINE? NT LINE ? OF SSAGE 
15k C;REFMT =REF ORNAT THE ERROR SECTOR 
PROCESS CONTROL/INTERFACE TRANSFER ERROR 
TRFER: JSR PC, LINEL sPRINT LINE 1 OF ERROR MESSAGE 
DISPLY *RH11 OR UNISUS TRANSFER ERROR 
SR PC, LINES :PRINT LINE 2 OF ERROR MESSA 
jsR- C. LINES :PRINT LINE 3 OF ERROR MESSAGE 
J5R Peat LINE G OF ERROR NESS 
JSR . NCTOT ? INCREMENT TOTAL ERROR COUNT 
BIT apiTisierriaterrélg 178, SRPCSECRO) -*DLT’, "UPE’, "MXF’, °MDPE’ SET ? 
MOV rk RETRY “RETRY LIMIT 
CLR MA :CLEAR ERROR MASK 
ISR PC SRETRY sRETRY THE OPERATION 
BR 1$ :RETURN N HERE IF RETRY UNSUCESSFUL 
ISR PC .LINEGC PRINT LINE &C OF ERR OR MESSAGE 
BR 23 FINISH THE ERROR REPO 
13: JSR PC,LINEGD ‘PRINT LINE &D OF ERROR MESSAGE 
23: 358 PC, LINE? PRINT CINE ? OF ERROR MESSAGE 


;PROCESS *SKI°® OR ’OCYL*® ERRORS 





ND-11-D2RID-A, 
DZRID.919 
2205 012262 
206 012266 
ge" HERG 
508 O1808 
Sit pune 
S513 O1SSIE 
ris. 
2214 
2215 
2218 012320 
2217 012324 
2618 012330 
2219 012334 
2220 012340 
e221 012344 
e222 912350 
gee3 O1e3S4 
2224 912362 
2225 012370 
e225 016374 
2227 012376 
e228 12402 
2229 012406 
2230 912410 
2631 012414 
e232 
2233 
2234 
2235 012416 
e236 Qlet2e 
2237 Ole4es 
2238 012432 
2229 012436 
2240 Oise 
2241 012450 
2e42 012454 
2243 O1e456 
2244 Oie462 
2245 012464 
2246 12470 
2247 012474 
| ges 
| 2249 
| 2250 
| 2251 12476 
| e252 O1esae 
| e253 012504 
| 2254 012510 
| 2255 016514 
| 2256 012520 
| 2257 012524 
cese Vics 
| 2288 012530 


RPOY’S’6 MULTI-DRIVE EXERCISER 
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004737 020130 - SKIER: JSR PC, LINEL :PRINT LINE 1 OF ERROR MESSAGE 
104414 047221 DISPLY 50 -*SKI’ OR "OCYL’ ERROR 
004737 20174 ISR 6c LINE? :PRINT LINE 2 OF ERROR MESS 
Boy? 7? O20616 ISR LINE :PRINT LINE 38 OF ERROR MESSAGE 
737 023354 JSR PC’ INCTO : INCREMENT TOTAL ERROR COUNT 

004737 9233 JSR PC; INCSKI : INCREMENT 'SKI’ OR OCYL’ ERROR COUNT 
0 30 022040 58 C,LINE7A !PRINT LINE 7A OF ERROR MESSAGE 

:REPORT WRITE CLOCK FAILURE (*WCF’) 
904737 020130 WOFER: JSR PC, LINE! sPRINT LINE 1 OF ERROR MESSAGE 
104414 046332 DISPLY ,EM34 :REPORT WRITE CLOCK FAILURE 
004737 020174 JSR pe LINE? SPRINT LINE 2 OF ERRCR MESSAGE 
604737 029610 ISR C;LINESA !PRINT LINE 3A OF ERROR MESSAGE 
904737 Oel2 JSR CLINEY :PRINT LINE 4 OF ERROR MESSAGE 
004737 023354 JSR PC’ INCTOT ‘INCREMENT TOTAL ERROR 
604737 01477 JSR PC’ PRTBAD :SEE IF BAD SECTOR TO ag OERINTED 
012737 009003 o01252 MOV #3° RETRY RETRY COUNT 
O:2737 000040 o91259 MOY s8fTOS, MASK ; ERROR MASK 
004737 915330 JSR . SRETRY SRETRY THE ORDER 
900405 BR ?RETURN HERE IF RETRY UNSUCESSFUL 
004737 021630 JSR PC, LINEEC :PRINT LINE 6C OF ERROR MESSAGE 
O047 2 021712 18: SR PC’ LINE? :PRINT LINE 7 OF ERROR MESSAGE 
004737 021626 2s: JSR PC, LINE&D sPRINT LINE 6D OF ERROR MESSAGE 
000772 aR 1$ 

:PROCESS DRIVE UNSAFE ERROR 
004737 920130 UNSAF: JSR PC, LINEL sPRINT LINE 1 OF ERROR MESSAGE 
104414 047353 DISPLY ,EMEO ‘REPORT DRIVE UNSAFE 
004737 920174 ISR €,LINE2 :PRINT LINE 2 BF ERROR MESSAGE 

737 Oe060 JSR PC'LINES PRINT LINE 3 OF ERROR MESSAGE 

904737 023354 ISR PC’ INCTOT SINCREMENT TOTAL ERROR COUNT 
012737 900003 oD1es2 MOV 83, RETRY RETRY COUNT 
004737 015320 JSR PC’ SRETRY RETRY THE 0 
900403 BR *RETRY WAS UNSUCESSFU! 
004737 021630 JSR PC, LINEGC :PRINT LINE F ERROR MESSAGE 
900402 3R 25 :CONTINUE WITH ERROR REPORT 
904737 021626 1$: ISR PC, LINEGD SPRINT LINE §D OF ERROR MESSAGE 
094737 Oel7le2 2s: JSR PC; LINE? PRINT LINE 7 OF ERROR MESSAGE 
000207 RTS pC RETU URN 

sREPORT AN "UNKNOWN’ DATA PATTERN 
105737 001300 NOMTCH: TSTB  FRSTER eT A ERROR IN THE SECTOR ? 
001013 BNE : IF NOT OR IF PROCESSING *DCKER’ 
004737 9020130 JSR PC, LINEL :TYPE LINE 1 RROR 
104414 946730 DISPLY 4 can T MATCH bata. WITH PATTERN’ 
004737 620174 JSR C,LINE2 sPRINT LINE 2 OF ERROR ME 
004737 O20610 JSR PC/LINESA PRINT LINE 3A OF ERROR MESSAGE 
004737 021256 JSR PC; LINEY PRINT LINE 4 OF ERROR MESSAGE 
060404 BR 23 :CONTINUE PROCESSING ERROR 


MACY11 27(655) 
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SEQ C080 




















O2RIO. 919 
1 

ee0 bees 
gcpe isle 
ee biSecp 
2264 O12ss4 
2265 B2s308 
S5c8 15805 
2268 912S7e 
os es 

; 12690 
2271 Olesocs 
ee7e 012606 
2273 Oleble 
2274 Ole616 
2275 Olete0 
ee7& Qlebe4 
2277 012630 
2278 Qleb3e 
2279 012636 
2280 OlebYe 
2281 012644 
2282 012650 
2283 012654 
e284 912656 
e285 Clebte 
e286 Cl2665 
2287 012672 
2228 012674 
2289 012702 
e230 Ole710 
2231 Oie7lé 

























Bs 
300 Bie ay 
cae piers 
5355 pistes 
2304 012760 
Sane bisvee 
2207 012772 
2308 012776 
2203 013002 
2210 013006 
e3il O13s0l2 
e2le 013016 
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over 
oil S 
0514] 

922172 
053073 


02217 
00116 


217 
207 


022172 
001165 


022172 
052073 


O2e17e 
001165 
O2e17e 
052073 
022172 
001165 
600770 
tise, 


01594 


271655) 





PC’LINOCT 
ti) -(SP) 
LINOCT 

PEOhEE 
R1,-(SP) 

PC: LINOCT 
»LINSP 
'RI)+. -(SP) 

PC. LINOCT 
$CRLF 

R1,-(SP) 

PC’ LINOCT 


Cin 
tine -(SP) 
PC-LINOCT 


SCRLF 
bese. .*2.),R1 


#1, FRSTER 


#-1 , FRSTER+1 
CHPLIT, LIMIT 


SRPER1 (RO) 
SRPER2(RO) 
dfpeR3:RO) 
PC, LINE 

EMYY 
PCL 


TNE? 
PC LINES 
Pkobd NEY 
Bx? pe TOT 
PC, LINE? 
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s GANT MATCH DATA WITH PATTERN’ 
‘HEADER FOR DATA PRINTOUT 
“ADDRESS OF WORD 1 


; SPACE 
ADDRESS OF WORD 1 
TY YPE WORD 1 


ADDRESS OF WORD 2 
‘TYPE WORD 2 
:ADDRESS OF WORD 2 
:TYPE WORD 2 
“ADDRESS OF WORD 3 
:TYPE WORD 2 
SPACES 

ADDRESS OF WORD 3 
“TYPE WORD 3 


3 CR-LF 
5 Oy OF WORD 4 


ACES 


;SP 
; ADDRESS f WORD 4 
TYPE WORD 4 


F 
; INCREMENT BUFFER POINTER 
LEAR *WORDS TO 





;CHECK ERROR BITS IN THE RH11 & RPO4/S/& REGISTERS 
#60000, SRPCS1(RO) 
8177400, SRPCS2(RO) 
ANY ITs. SEIN ERL 


:BR I 
s ANY BITS "Set IN ERe ? 


; SEE iF *TRE’_OR *MCPE’ SET 
; SEE af ERROR BITS IN CS2 SET 


BR Tae et 

NY BITS IN ER3 ? 

'BR IF NONE SET 

SPRINT LINE 1 OF ERROR MESSAGE 

ERROR BITS SET, BUT "SC’ OR "TRE’ NOT SET 
: PRINT LINE 2 9 OF ERROR MESSA 

‘PRINT LINE 3 OF ERROR MESSAG 

SPRINT LINE 4 OF ERROR MESSAGE 

TINCREMENT TOTAL ERROR COUNT 

sPRINT LINE ? OF ERROR MESSAGE 





:C COMPARE’ COUNT IN R2 

:SET "NOT FIRST ERROR’ INDICATOR 

BE! ERROR FOUND INDICATO 
RESET THE COMPARE ERROR TYPEOUT LIMIT 


eens 


8 
fo 


aa 


ONNVOOOOV0V0V00000 
0+ + 0 2 bb a ee 


= 
fo 


WWIWWWWWIWWWWiIWt) 
ee 
PEENESLHNSNG EHF 


Fororuforurore 
HONEVEO 


Bo 


fOrOFOrD 


OOVOVOOOOVOO VOOOOVOVHOOVOKOOKVVOVKRNBH00000 
2Banan 


b+ b+ b= b+ b= &-< bb = bb = 0 = = bb + 0 0 -2 = 8-2 eo 


WIWUIG) 


WWGG 
eT 


mo 
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ococo4 


001309 
o000Ce 


001306 
00000 


001302 
001304 
001312 
001312 
ooo022 
000922 
000024 
001314 


013354 
001316 


013354 


1$: SEC(RO) ,Re ;COMPARE SECTOR 
2s: SUB $SSEC(RO),CMCNT ;DECREMENT WORD COUNT 















;CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 








CKBUS: TST SRPWC (RO) s CHECK WORD COUNT 
BNE 1 :BR IF NOT ZERO 
MOV SUROL (RO), -(SP) be Oe 
as. (SP) CHANGE INTO BYTE COUNT 
ADD $BUF(RO),(SP) ADD THE STARTING LOCATION 
CNP {SP)+, ’SREBACRO) sBurE ER gpDORESS P ROPER 
1$: ISR PC, LINE! :PRINT LINE 1 OF ERROR MESSAGE 
DISPLY 4 :BUS ADDRESS OR WORD COUNT INCORRECT 
SR PC,LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
JSR PC; LINED :PRINT LINE 3D OF ERROR MESSA 
JSR SLI :PRINT LINE 4 OF E MESSA 
JSR PC) INCTOT !INCREMENT TOTAL ERROR COUNT 
“ ISR PC LINE? :PRINT LINE 7 OF ERROR MESSAGE 


;COMPARE THE BUFFER 
CMPAR: BITS #BITO2,SCODE(RO) ;SEE iF eo ORDER 


BNE 1$ :BR IF IT IS 

RTS PC iRETUR * 
1$: CLR FRSTER ;CLEAR "FIRST ERROR’ INDICATOR 
CMPARD: BIT #SWO1, aSWR :IS SWITCH 1 SET? 

BEQ 1$ :BR I oT 

RTS PC YES T COMPARE 
18: CLR ERCTR ‘CrEAR T THE oes" COUNTER 

MOV $BUF(RO),R1 ;BUFFER AOD 


MOV  $WRDL(ROS,CMCNT ";WORD COUNT TO WORKING LOCATION 

ADD SRPWC(RO)’CMCNT :CALCULATE TactuAL WORDS TRANSFERED 

MOV SCYL(RO),CMCYL ;¢Y YLINDER AODRESS WORKING LOCATION 

BIS’ = wBIT12. CACYL ery OR 

MOV $SEC(RO),CMSEC :SECTOR ¥ TRACK ADDRESSES TO WORKING LOCNS 


MOV.  CMPLMT,LIMIT  :DISPLAY LIM 
INC’ LIMIT CONVERT PARAMETER INTO LIMIT VALUE 
CMSTR: MOV #-1, ZROIND “CLEAR THE 'ZERO’S’ we NDICATOR 
CLR SAVER sCLEAR THE RI SAVE W 
CLR SAVERS ‘CLEAR THE RS SAVE WORD 
CH CHCNT , $SSEC(RO) “id? e BUFFER SIZE GREATER THAN ONE SECTOR ? 
MOV CMCNT, Re © cess THAN. SUSE REMAINING BUFFER 


CMPB =: SCODE (RO), #5 sREM HEADER & DATA? 
NE AT F NOT 


CMHED: CMP CMCYL, (R1)+ “CHECK CYLINDER 
~ we i$ BR IF COMPARE OK 
JSR PC,SS$ REPORT ERROR 
1S: cHP CHSEC, (R1)+ ; COMPARE SECTOR & TRACK 
ISR PC,S$ ‘REPORT ERROR 


09 pe 


eeoRame 


o 
it 


a 


w 
¢ 


Be ee ets 
ae copes 


ie Pr 
Oe EMOeWoWS 


IRI ATRIAL ATT IRI RUMI 
eat ArAaERE rte 


Ww 


NOON VOO0ONON OOD OOVO OOO OOMIOOKVONO DVO CVIOOOVOVOVOKOVBOOVVOVDVONO0ON00 0000 
uw 


> + 6+ b+ 6 — b- b= 6 6 FF 0 bb 8 8 0 0 8 bb 0 0 8 8 1 bb bo 0 b= 0 <0 9 bs 0 be 0 8 pe pe 


oe 


ne ee 


013354 
913354 
oooco4 
ooo0c4 
001306 
013632 
014154 
012476 


000020 


001306 
000010 
013632 


177776 
177777 
001306 
013622 
001300 
poigrs 


013632 
001312 
000024 


001316 
001316 o00026 


zRIO-A, yt tare MULTI-DRIVE EXERCISER 
MAIN PROGRAM 

2s: 

3$: 


4§:- 


S$: 


CMDAT: 


es: 
3$: 


4§: 


Ss: 


6$: 


7$: 
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PC, MATCH 
PC, NOMTCH 
93° 

(RY) S 

#20 

teDsee (RS)+ 
ERCTR 

#SW3, ISWR 
PC, CMPRT 


-2(R1) 
#-1, ZROIND 
ERCTR 

PC, CHPRT 
FRSTER 

7§ 

ZROIND 

R1, SAVERL 
RS, SAVERS 
4g" 

ZROIND 

PC, CMPRT 
4§ 

CMCNT 


CMPRX 
$CODE(RO), #5 
CMSTR 


CMSEC 
CMSEC, #22. 
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;1ST_ KEY WORD ZERO? 


PORT ERROR 
: CHECK 2ND KEY WORD 

iREPORT ERROR 

; SUBTRACT HEADER LENGTH FROM SIZE 


:BR_IF FINISHED 
;SEE ft ot LEAST 4 MORE WORDS TO CHECK 


;BR I 
; COMPA Re THE DATA PORTION 


mi HERE IF NO MATCH WITH PATTERN MADE 
;BYPASS COMPARE ROUTINE 

ADDRESS OF PATTERN ADDRESS IN RY 

:R3 IS PATTERN POS COUNTER 

; COMPARE a tai WITH PATTERN - 

;BR_IF NOT EQ 

: ERRORS NOETECTED ? 

3BR frat ERRORS 


BR IF NOT SET 

:DISPLAY THE WORD 

:DECREMENT SIZE COUNT 

BR WHEN AT E 

; DECRENENT PATT POS COUNT 
;BR IF NOT ENO OF PATT 
START THE PATTERN 

15 ae CHARACTER=0 


;SET NON-ZERO MISCOMPARED INDCATOR 
s INCREMENT TH THE ERROR COUNTER 


;BR_IF NOT 

:SET THE ZENO a 

:SAVE CURRENT 

;SAVE_CURRENT cS 

s CONTINUE COMPARE 

Y MISCOMPARIONS NOT ZEROS ? 
Bde NONE-ALL ERRORS=ZERO 


T ER : 
CONTINUE COMPARING : 
;AT END OF BUFFER >) 
-) 


;BR_ IF AT END 

;SEE IF READ HEADER & DATA 
:BR IF NOT 

INCREMENT SECTOR 

SECTOR GREATER THAN MAX ? 






















MO-11-D2RID-A, 
DZRJD.919 


OO0K0V00000 


RRRRKRR 
OEE Lo 


Ente sae 


mu 


ee ee ee ee 0 ee ee 
Ss Wi) ww 
“J 
o 
<= 


OOOO OOOOOOOVOOOOKONOVOOHKOHKOOVBOOKOKVON0VOK0000000000 
ass 
Bike 
<r 


14034 


= ew --- 





ie 


1 
000207 


segs 


013726 
10 


014010 
001300 


ti 
001310 
001310 
000200 


RPO4/S’6 MULTI-DRIVE EXERCISER 
MAIN PROGRAM 


000023 


CMPRX: 
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; TYPE DATA COMPARE ERRORS 


CMPRT: 


1$: 
es: 


3$: 
4$; 


001300 


165106 9%: 





TST 


SAVER! 

eee 

PC,4S 

PC; 8$ 

33° 

Rl, -(SP) 
5'-(5P) 


CAVERT RI 
SAVERS, RS 


LINSH 
-1, FRSTER 
PC 

LIMIT 
LIMIT 

10$ 

S07, ISWR 
10$ 
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;BR_IF NOT GREATER THAN MAX 
:CLEAR ees ADDRESS 
INCREMENT TRACK 

; TRACK GR at B Ten MAX ? 


TRESET TRACK ADDRESS 
INCREMENT CYLINDER ADDRESS 
CONTINUE WITH COMPARE 
:PRINT LAST LINE IF ERRORS 





s PRINT SAVED VALUES ? 
FIRST ERROR? 


NOT 
PRINT INITIAL MESSAGE INFO 
eu REMAINDER OF MESSAGE 


SAVED RS 
NT INTIAL MESSAGE INFO 
spuENT SAV 
?CLEAR SAVED REGISTER INDICATORS 
:CLEAR THE OTHER ONE 
3 ; POP STACK INTO RS 
: STACK INTO RI 
t PRINT REMAINDER OF MESSAGE 


:EIRST ERROR ? 
; 


‘BR IF FIRST ERROR oe PROCESSING *DCK’ ERROR 
SPRINT LINE 1 OF ERROR MESSAGE 
DATA COMPARE ERR a 

R MESSAGE 


‘PRINT CINE SA-OF ERROR RESCERE 
. 4 OF ERROR MESSAGE 


;DISPLAY HEADER 
;SET ERROR FLAG 

;RETURN 

; TYPEQUT LIMIT REACHED ? 


;DECREMENT LIMIT COUNTER 

;BR IF NOT AT LIMIT 

;PRINT ALL DATA COMPARE ERRORS ? 
BR IF YES 


RETURN 
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I 
2475 014036 O10146 10$: MOV Rl, 74SP) ; BUFFER ADDRESS 

2476 O14040 162716 oo0002 SUB #2, (SP) “ADJUST ADDRESS 

2477 O14044 004737 O22172 JSR PC’LINOCT ; TYPE IT 

e478 O140S0 104414 052073 DISPLY ,LINSP 2 SPACES 

e479 o14es4 016546 177776 MOV se (RS) -(SP) sPUT GOOD DATA ON THE STACK 
2480 O14960 004737 022172 ISR C, LINOCT YPE IT 

2481 O14064 104414 052073 DispLy ‘thse iY SPACES 

2482 014070 016146 177776 MOV bet -(SP) BAD DAT 

2483 014074 004737 Oe2l7e2 JSR PC, LINOCT : TYPE Te 

2484 914100 104414 OO11ES DISPLY ,S$CRLF :CR-LF 

248s 014104 o00207 RTS pc : RETURN 






2486 2 

2487 ;LAST LINE OF COMPARE ERROR REPORTING 

105737 001301 ENDCMP: TSTB © FRSTER+1 ary COMPARE ERRORS FOUND ? 
001417 BEQ T 









F 
2491 014114 005737 001306 TST ERCTR ‘ere HOW MANY ERRORS 
2492 014120 601410 BEQ I$ BR IF ONLY CAN’T MATCH PATTERN 
2493 Ol4le2 104414 051430 DISPLY .LINSE "NUMBER OF ERRORS=’ 
2494 O14126 O1376 001306 MOV ERCTR, -(SP) : NUMBER OF ERRORS 
2495 014132 004737 922224 ISR PC LINDEC iT YPE IT 
2496 O14136 104414 OO1IES DISPLY ,S¢RLF CR-L 
2497 014142 004737 023354 1S: JSR PC, INCTOT sIN CREMENT TOTAL ERROR COUNT 
2498 014146 004727 O21712 JSR PC’ LINE? :PRINT LINE 7 OF ERROR MESSAGE 
2499 014152 090207 2s: RTS PC * RETURN 








3 hb a TO MATCH THE DATA WITH A PATTERN 










2503 :C 
04 : MOV #BUFFER,R1 sBUFFER ADDRESS 
2505 : JSR PC, MATCH 
2506 : RETURN sPATTERN ADDRESS IN RY 
507 : RETURN2 :COULDN’T MATCH PATTERN 
2509 O14154 O10146 . MATCH: MOV R1,-(SP) ;SAVE R1 ON THE STACK 
2510 014156 012704 oo0044 MOV #44,R4 *PATTERN TABLE INDEX 
2511 O14i6e O11601 1S: MOV (sP} Rl *Ri Rl 
2512 O14164 162704 op0002 SUB :DECREMENT INDEX 
2513 O14179 O1640S o0e74e MOV SF ABAT RH) ,RS “ADDRESS OF PATTERN ADDRESS 
gel 014174 001411 BEQ 3$ FOUND ALL PATTERNS CHECKED AND NO MATCH 
2516 014176 012703 oo0004 MOV #4,R3 “NUMBER OF LOCATIONS TO CHECK 
2517 O14202 022125 23: CMP (RL)+, (RS)+ *COMPARE THE BUFFER AGAINST THE PATTERN 
2518 O14204 001366 BNE 1$ *BR IF NOT EQUAL, TRY NEXT PATTERN. 
2519 014206 005303 DEC R3 FINISHED CHECK KING? 
2520 014210 001374 7 BNE 2$ *BR IF NOT FINISHED 
2521 Ol42l2 062704 o0e742 ADD #STNDAT, RY :MAKE PATTERN ADDRESS ABSOLUTE 
2522 014216 00403 BR 4 *EXT a 
25e3 014220 062766 o00002 on0072 3s: ADD #2, 2(SP) “INCREMENT RETURN ADDRESS 
2524 O14226 012601 4$: MOV {SP)+, Rl RESTORE RI 
2525 014230 000207 RTS * RETURN 





;USE ECC TO CORRECT THE DATA ERROR 





» RPOWS/’6 MULTI-DRIVE EXERCISER 
MAIN PROGRAM 


00024 
Og000 


O0002e 
027004 


001322 ECC: 


000005 
001322 
001322 
001320 
001330 


MwurnH 
Aw 


001330 
001330 


001324 


3$: 


001334 4S: 


164574 


001336 
001336 
001336 


MACY11 27(6S5) 


fae 
ronen 
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adh Wragy 30 ;ADDRESS OF LAST “Ags CoP) 
SCRDCCRD}; (SP) Abo MORBs REGUeere® © oO" 


SSEC(RO), -(SP) iSEETOR 
PC, LINKDV ; DIVIDE foRbS XFERED BY. SECTOR SIZE 












(SB) jPARTIAL CTOR XFERED ? 

1§ “BR IF NO 

(SP) ‘CONVERT INTO NUMBER OF BYTES 

(SP) ECSEC s SUBTRACT SECTOR RESIDUE 
SCODE(RO),#S5 WAS OP READ HEAD & DATA 

#8. ,ECSEC jADD HEADER SIZE (IN BYTES) BACK IN 
2s GO ADJUST THE STACK 





#1000, ECSEC ; SUBTRACT 
#4 ;ADJUST T' 
for ECBIT Sree 4 Yee. 
ECBIT, ECWRD i OAD THE 


TOR oe FaELD SIZE (IN BYTES) 





















#1C17_,ECBIT SAVE THE Sei oFFSeT ¢ 
#17, ECWRD :CLEAR THE BIT OFFSET 
WROD Sina T9 BYTE COUNT 
ECWRD €OU io 
LINIOA TER RROR BURST "EeGgH Ne a 
ECWRD, -(SP) *PUT THE WORD COUNT on THE STA 
(SP) : CONVERT #0 WORD COUNT FOR RESSAGE 
PC,$SB2D_- :CONVERT THE WORD COUNT 
PC’ SSUPRS sPRINT IT . 
LItNiog ’ IN DATA FIELD OF ERROR SECTOR’ ee 
ECSEC, ECWRD ‘FIND THE BEGINN 





OF THE ERROR BURST 
DATA READ 





SRPBA(RO),ECWRD ';SEE IF BURST WAS IN 
+6 ATA 


:BR TF IN R 

ECC2 NOT IN DATA READ - REPORT IT 
$RPEC2(RO), ECNSKO. :GET THE E 
ECMSKI sCLEAR T 


;BIT gt EQUAL ZERO 














4$ 
ECBIT DEC NT THE BIT OFFSET COUNT 
ECMSKO ;SHIFT THE ERR 
ECMSK1 ;SHIFT THE LOWER INTO THE UPPER 
;CONTINUE THE SHIFT 





3$ 
JECWRD, ECBADC ; SAVE THE INCORRECT WORD 
ECW “CLEAR SECOND INCORRECT WORD ADDRESS 
- :PUT LOWER MASK ON STACK 
JECWRD; (SP) *CLEAR ERRONEOUS ONE BITS FROM MASK 
:CLEAR ERRONEOUS ONE BITS FROM BAD WORD 
+, JECWRD SET DROPPED BITS 

Ski *DOES BURST GO INTO NEXT WORD ? 
ECCI °BR IF BURST ONLY IN ONE WORD 
ECURD, ECHRDL 


sDUPLICAT E ADDR ES Ss 
SRPBA(RO),ECWRDI’ 
$ 












REMENT ERROR ADDRESS 
“1S NEXT WORD IN THE BUFFER 
;BR IF IT IS 








Seri 


ONO OOKVOOOKOVOK000000000 2 
s& 


b— b= b= b= 6 b— 0 0 bb = bh bp 


Bannanenaas 
Aintatatpotet st atota ms! 


wu 
Be 
FO 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
i] 
0 
0 
0 
0 
0 
0 
0 


trverncrnernervernernesnenvestcrververnesvervennest Ee 
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001336 
164532 


052073 


051604 
001165 


000010 


000240 
000020 
000236 


000022 
027004 


001000 
000024 


000010 
000004 
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CCi 
aECHROL, sterol 


;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 


(RO), 
SIROL CRO)” Rl SP) 
SRPUC(RO), (SP) 


(SP) 
SSSEC(RO), -(SP) 
LINKDV 









;CLEAR 2@ND WORD ADDRESS 
:P ECTED 


;SAVE THE SECOND BAD WORD 

;PUT hy Mae R MASK_ON THE STACK 

ie OUS ONE BITS FROM UPPER MASK 
;CLEAR ERRONEOUS ONE SITS FROM DATA WORD 
;SET PROPPED BITS 

‘PUT F CURD ON THE STACK 

; TYPE ECWRD 

: SPACES 

;PUT ECBADO ON THE STACK 

TY La —— 

PUT @ECWRD ON THE STACK 

: TYPE aJECWRD 

: SPACES 


; PRINT L.. NEXT WORD ? 
;BR IF N 


R-LF 
BUT ECWRD1 ON THE STACK 
; TYPE ECWRD1 


; SPACES 
PUT ECBAD1 ON THE STACK 
TYPE ECBADL 


:5 

:PUT JECWRD1 ON THE STACK 
; TYPE gECWROL 

3 PACES 


;EXIT 
j ERROR BURST WAS NOT TRANSFERED TO MEMORY 


R-LF 
RETURN 




















BR IF ne BAD SECTOR ? 

sPUT THE END ADDRESS INTO Rl 
FIND THE BEGINNING OF THE SECTOR 

; SUBTRACT THE WORDS NOT TRANSFERED 
;MAKE THE UPPER 


OIVID 
AIRE THE WORDS TRANSFERED BY THE SECTOR SIZE 
; 


eit is. IS - " COMPLETE SECTOR TRANSFERED 
i VERT THE RESIDUAL SECTOR SIZE INTO BYTE COUNT 
s SUBTRACT IT FROM THE END ADDRESS 
; FINISH THE SIZING 
TRACT FULL SECTOR SIZE FROM END ADDR 
; WAS a READ HEADER & DATA ? 


* SUBTRACK HEADER SIZE FROM ADDR 
RESTORE THE STACK POINTER 








MO-11-DZRJD-A, 


OZRJO.019 


ONOOOOV0OO00O0000 


Oo0ON00000NO 


7 


PET Oe 
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110 


111037 


001775 
000207 


051776 
000097 
022172 
000249 
052073 


022172 


001165 
001165 


O4Y4YE4E 
000117 
034036 


034036 


O44654 


044650 


O446S0 


DISPLY ,LINI1H ; PRINT 


Eee, agen ON TRE STFC 


PC: LINOCT 
4$: R1, SRPBA(RO) t PRINTED™ alt tHe SECTOR ? 
iz ;BR IF ALL PRINTED 


PA 

kis - -(SP) *PUT THE DATA ON THE STACK 

PC, LINOCT : TYPE THE DATA 

Ro’ :DECREMENT THE HORIZONTAL COUNT 
4g :BR If NOT AT THE END OF THE LINE 


SCRLF 
§ ; RESTORE THE WORDS/LINE COUNT 
S$: SCRLF :PRINT WHAT REMAINS IN THE BUFFER 
6$: RTS pc : RETURN 


+b ae TO DO AN RTC - DRIVE SELECTED IN RO 


MOV #0PB, RO ;DPB ADDRESS 
ISR PC,RTNCTR 
RETURN 


RTNCTR: MOVB = (RO), GENDPB “MOVE THE DRIVE # TO THE GENERAL DPB 
MOV8 § #RTC:/GENDPB+SCOMND ;COMMAND CODE 
1$: JSR RO, RPOY sDRIVER ENTRANCE 
GENDPB :DPS ADDRESS FOR ORDER 
BR 1$ :DRIVER DIDN’T ACCEPT ORDER 
RTS PC : RETURN 


RT oe TO DO A RECALIBRATE - DRIVE SELECTED IN RO 


#DPB, RO :DPB ADDRESS 
PC, RECALT 


#0PB,RO ;DPB ADDRESS 
#DRIVE,GENDP8 :DRIVE ADDRESS 
PC, RECALTO 


; 
ir 
; 
; 


RECALT: NOPB -MOVE THE DRIVE # TO THE GENERAL DPS 
RECALO: wee AL GENDPB+SCOHND *RELCALIBRATE COMMAND 

1S: ISR RO, RPOS VER ENTRANCE 

‘Dp 5 VADORE Se FOR ORDER 
1$ ‘DRIVER DIDN’T ACCEPT THE ORDER 
GENDPB+$TATUS -SEE IF FINISHED 
2$ :BR IF NOT FINISHED 
PC :RETU URN 


THE DRIVE IN RO (OFFSET CODE PRELOADED INTO *RPOF*) 
MOVB WOFFSET,GENDPB+SFMT ;OFFSET CCOE 
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MOV #OPB,RO :DPB ADDRESS 
JSR PC, OFFST 
RETURN 


YEU : (RO), GENDPB ‘DRIVE # TO GENERAL DPB 
Lara? M HOFF SET, ee 
034036 ; .: JSR RO,R :DR RIVER ENTRANCE 
OHHeNE :DPB ADDRESS FOR ORDER 
BR oS DRIVER DIDN’T ‘ACCEPT ORDER 
Bopea7 -. 


+ veh READ HEADER ROUTINE 


#OPB, RO ;DPB_ADDRESS 
#SECTOR SECTOR ADDRESS 
: TRACK ADDRESS 

: 


O446S57 READHD: »GENDPB+STRK ; TRACK ADDRESS 
O446S6 M ,GENDPB+SSEC ‘SECTOR ADDRESS 


6) ENDPB IVE NUMBER 
O44E60 (RO) Benppaisert -CYLINDER ADDRESS 
O446S0 GENDPS+$COMND COMMAND 
: Ht OH MORIVER EN ENT ANCE 
DPE Aton Se R ORDER 
BR 1$ ‘DRIVER DIDN’T OACCEPT COMMAND 
O44664 : GENDPB+STATUS ;FIN ISHED? 


NOT 
o0006e io ADJUST STACK FOR RETURN 
; RETURN 


inininenn 
Spe at 


ALATA 
ee 
OmMo 


0 
0 
0 
0 
ft) 
0 
0 
0 
a) 
0 
0 
0 
0 


+ bh b= bb fh bs be ph he ee 


WmuNUiuy 
Bats 
a 


sRETRY THE PRESENT OPERATION 
MOV #COUNT, RETRY ;RETRY COUNT 
JSR PC, SRETRY 
RETURN sRETRY UNSUCESSFUL 
RETURN2 ; SUCESSEU UL RETRY 
IF @ DIFFERENT ERROR OCCURS DURING 
RETRY, THE ROUTINE EXITS TO ‘ERPRCL’ 


016320 : PC, GODRIV ;RE-START ORDER: 
000016 : T STATUS(RO) ; ORDER 2 eee: 


BMI 23 ;BR IF ERROR - 
001253 RETRY+1 ; INCREMENT RETRY COUNT 
000002 #2, (SP) ; INCREMENT RETURN 


BR $ :GO TO EXIT 
O00200 O0001E eS: 3 SGIT?, STATUS(RO) B pote ere ORDER TERMINATE NORMALLY ? 
001250 — ' $1S ERROR "WASK 6 a 
000250 $RPER1(RO) t MAKE SURE THAT THE DRIVE ERROR REG IS CLEAR 





MD-11-DZRID-A, 
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1 
a48 ghee 
750 015420 
e751 015426 
e7Se 015430 
753 Blaise 
754 Q15436 
e7sS 01544e 
He} 1S444 
15446 
e758 01S4Se 
e759 
2760 
e761 
e7be 
2763 
2764 
2765 
2766 O1S456 
. 2767 O1S464 
2768 O1S466 
e769 015474 
e770 015502 
2771 015504 
e772 015510 
2773 015516 
e774 015522 
2775 015530 
. 2776 015532 
2777 015536 
2778 015540 
2779 O1SS46 
2780 015550 
e781 015556 
2782 015562 
2783 015570 
2784 015574 
e785 015602 
e786 QO1S604 
2787 0156 


le 
e788 015616 
e790 015620 


RPO4/S/& NULTI-DRIVE EXERCISER 
MAIN PROGRAM 
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001404 
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000050 
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000044 
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o000Se 
000270 
oood4e 
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4$: 


SS: 
63: 


7$: 


MACY11 27(6S5) 


BNE 


R 
DISPLY 
JMP 


6$ 


ETRY+1 
RETRY, RETRY+1 
SRETRY 
PC, LINES 
PC? LINE7 
(SP)+ 


fen 
ERPR 
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BR TF NOT 
4§ ;CONTINUE RETRY 
NRSK, SRPERLCRO) :SAME ERROR? 


HINCRENENT RETRY COUNT 

‘BR IF "not DONE 

PN one DIFFERENT ERROR 

; ADJUST STACK POINTER FOR DIRECT RETURN 


DIFFERENT agi DURING RETRY’ 
REPORT THE ERROR 


Le TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 


STATIS: 


1$: 
eS: 


3$: 


FACTOR: 
;ROUTINE TO GET 
> CALL: 


§ 
’ 
. 
s 
. 
$ 
9 
J 


- WORD 


MOV 
CLR 


JSR 
RETURN 


Pe. Petar Is 


SRPBA(RO) FACTOR’ 


SBUF (RO), FACTOR 
B 


FACTOR 
FACTOR STRANS(ROS 
STRANS+2(RO) 

#BITO1,SCODE(RO)’ 


RUTOCK 
SCODE(RO), #1 
SURDL (RQ) STRANS{ 


STRANS+2( RO) 
FACTOR SREAD(RO) 


;DPB ADDRESS 


, rere, STATS ;CHECK FOR on ee 


NOT DATA TERM 
THE FINAL BUFFER ADDRESS 
iste THE INTIAL ADDRESS 
iBR Wie NO DATA TRANSFER 
NVERT TO A WORD COUNT 
-UPDATE WORD COUNT 


AN 
-SEE IF ORDER READ OR WRITE 

;BRANCH IF ORDER 

; AUTO WRITE CHECKS BEING PERFORMED 


;BR I 
: PRESENT OPERATION AN AUTOMATIC WRITE CHECK ? 


“BR IF NOT 
“ADD se WORDS WRITTEN 


Y 
“UPDATE THE READ WORD COUNT 
-ABD ANY CA 


$READ+ Y 
SCYL(RD), ’sePca Ra) ;DID MID-TRANSFER SEEK OCCUR 


gpOstrs2(RO) 
0 

A BUFFER 
#0PB, RO 

PC, GETBUF 


N 
: INCREMENT SEEK COUNT 
ADD CARRY TO UPPER WORD 


;USED FOR WORDS TRANSFERED 


;DPB ADDRESS 
;CLEAR THE STACK 


;BUFFER ADDRESS WILL BE ON THE STACK 
:STACK WILL BE ZERO IF NO BUFFER AVAILABLE 
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MAIN om 
O10146 GETSUF: MOV R1,-(SP) :SAVE RI c 
010246 MOV g2'=(5P) “SAVE Re 
515346 MOV R3'-(5P) :SAVE &3 
013792 oc1s7S MOV SUPTBL, Re ‘NUMBER OF SEPARATE SUFFERS 
001444 BEQ 5 -BR IF NONE AVAILABL 
O1e701 O01600 MOV SBUFTBL+2,R1  :FIRST ADDRES OF ALLOCATION TABLE 
62606! 900029 oo00d2 15: oMP SWROL(RO);2(R1) ;SEE IF THERE (S$ A BLOCK LARGE ENOUGH 
101405 BLOS) 38 :BRANCH IF IT tS 
005302 DEC Ro :DECREMENT TABLE COUNT 
001434 BEQ 6$ :BR IF THROUGH 
362701 Oo00004 ADD #4,R1 : INCREMENT TABLE POINTER 
505767 R 1 : CONTINUE LOOKING 
011166 oooo10 38: MOV (RL), 10(SP) SUFFER RODRESS TO STACK 
166061 009020 so0o02 Sec} $WRDL(RO),2(R1) :ADJUST BUFFER SIZ 
001497 BEQ 4§ :BR IF DIFFERENCE IS ZER 
006362 o00020 ASL $WROL (RO) :CONVERT # WORDS TO BYTES 
066011 909020 Ado SWROL(RO),(R1) ;MAKE NEW STARTING ADDRESS 
096269 909020 asR SWROL (RO) !RETURN # BYTES TO WORDS 
909414 BR bs : RETURN 
905337 o01S76 4$: DEC SUF TBL :DECREMENT ENTRIES COUNT 
591411 BEQ &$ ?BR IF ALLOCATION TABLE EMPTY 
005302 DEC Re “DECREMENT TABLE COUNT 
001407 BEQ &$ :BR IF ITEM WERE LAST ENTRY 
010193 MOV R1,R2 :MOVE THBLE POINTER 
wee7os ocO0dd4 ADD #4'R3 :POINT TO NEXT ENTRY 
012321 S$: MOV (RA)4, (RIY+ :MOVE ITEMS 
01232! MOV (R3)+)(R1)4 
095302 DEC R2 ;DECREMENT TABLE COUNT 
001374 BNE S$ CONTINUE IF NOT AT ENO OF TABLE 
512603 68: MOV (SP)+,R3 RESTORE R3 
012602 MOV (5P)4'R> :RESTORE Re 
012601 MOW (5P)+'8] :RESTORE RI 
500207 RTS pe : RETURN 
: ROUTINE 70 PUT BUFFER BACK IN TABLE 
5 aes 
: ~ MOV #0PB,RO :DP8 ADDRESS 
: ISR Po, RELBUS 
: RETURN 
O1O14E RELBUF: MOV R1,-(SP) -SAVE RI 
612701 601600 MOV sSUFTBL+2,R1 | ;BEGINNING OF TABLE 
61370e 901576 MOY BUF TBL,R2 SENTRY COUNT 
001424 SEQ 2 :BR IF EMPTY TABLE 
O1e0c3 o0020 MOY $WROL(RO),R3 ;TRIAL ADDRES 
006303 ASL R3 CHANGE TO SYTE COUNT | 
666003 o00006 Tale) $BUF (RO) 23 ADDRESS OF HIGHER ROJACENT BLOCK 
921103 18: CMP (R1L),R3 ‘UPPER ADJACENT BLOCK. 
061424 BEQ ot :BR IF Y ; 
062761 op0004 ADD #4, Rl : INCREMENT POINTER 
005302 DEC Re DECREMENT ENTRY COUNT 


0053 
00137e BNE | eet ;CONTINUE SEARCHING 
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200206 


CUd20 o000C92 
ifs 


as 
fe 


000006 
000029 


0009Ce 
001576 


o000c4 


p00004 
poo006 
p00020 
090001 


000012 
010000 





2s: 


4$; 
S$: 


$$: 


10S: 


;FILL THE ASSIGNED SUFFER (IF WRITE OR WRITE CHECK ORDER) 


;CALL: 


i] 
‘ 
° 
J 
2 
’ 
, 


FILSUF: 
BIT 


1$: 


sPUT THE BUFFER BLOCK INTO THE TABLE 
‘- soreadl 


iF p. cheese ROVRCENT rock IS IN THE TASLE 
TABLE 
fee ra COUNT 


x 
BATT cen BUFFER 7S LOWER ADJACENT 
a ae SIZE 


NNING OF TABLE 

erscn Sie Cin WORDS) 
TO BYTE el 

ADD BLOCK _BEGINN:NG ADDRESS 
:Ri a thh PQINTS to. INSERTED ENTRY 
it BENT BO ruTER TABLE 
CREMENT in 
este stack POINTER 


nee 
T LOWER SLOCK LENGTH 
SOUT 


SBUEAD z $BUF (RO) 


:DPB ADDRESS 
jLOn SUFFER RODRESS INTO THE OPS 
BATTER SPATTC(RO} coo 


3SA VE _ THE REGISTERS 
agiT0e , SCODE (RO) " READ 


WRITE NEROER TYPE OER 
CYLINDER ADDRESS 


SBTTOO. So8RE cro)" 








fo 
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QNOIOVVOVOOVOVOIAVOVOVOOVOAO0 w 


b-- b-- 0 +b &— b-< 9-2 b+ b— 6 6 = 9 & — Bo e 


oromwo 
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DDB ubseb ubet eo 
3 00-0 b+ & +p op oe 
—-O.00 “IW U.£UIfue-(9 


Basse eee 


totansts 


fo 
3 


ao 
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ae eanint sts 


ohnnoor 


OONKOOVOOVOO000000 


QKdoOoO00N00 
ro 
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000010 
009004 


p00030 
Q0e742 
65020 


009920 
002742 


016332 
034036 


009901 
000040 
000034 


009001 
009044 
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000036 
000012 
cood4e 


162530 








2s: CLR 


3$: MOV 


B 
4$: RESREG 
RTS 
;START THE ORDER FOR THE OPS IN RO 
; CALL: 


: MOV. 
. 1 
RETU 


GODRIV: MOV 
1$: JSR 
. WORD 


2s: 


3s: RTS 


: GENERATE PARAMETERS FOR THE OPERATION 
: DPB ADDRESS 


MOV 


JSR 
; RETURN 


SELPAR: JSR 


1$: MOV 


MACY1! 27(65S) 


$SEC(RO),(R1)+ 
(R1)+ 


{(Rl)+ 
#4,Re 
4s 


SPAT (RO) RY 
ST we CRY) RS 


#20 
tS), (R1)+ 


a3 
R3 
3$ 


#20,R3 
SINOAT(R) ,RE 


PC 


#0PS,F 


PC, Sony 


RO, -(SP) 


7 POBERC CRO) 
SOPERC+2 (RO) 
SEREVA+ECRO) , SCYL (RO) 


81, SPOSIT(RO) 
SPOS1T+E(RO) 


#O0PB, RO 
PC, SELPAR 


PC, SRAND 
#SWO, aSWR 
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SDECREMENT THE WORD C 
;8R IF DONE (WORD COUN NT = 9) 


SELECT A WRITE ORDER 
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SES 0093 






pas ® SECTOR & TRACK 
set AR oie te -KEY WORD 


NO 
Be et Be 


REL aTIVE Pe Poneee” ADDRESS 
: PATTE Ess 

; PATTERN N COUNT 

: MOVE Lu. & PATTERN wit ie BUFFER 





;PEST ADDRESS 
SCONTINGE DISTRISUTING THE PATTERN 
Py fay THE REGISTERS 











;OP8 ADORESS 











;SAVE RO 

; CURRENT OPS ADDRESS 

sCALL ue pt NOLER 

;DRIVE BLO K_ ADDRESS GOES HERE 
; DRIVER RETECTED REQUEST 


0 
INCREMENT THE OPERATION COUNT 
sOID ORDER REQUIRE A CYLINDER CHANGE 


IF 
s INCREMENT | peek COUNT 
sADD ANY 






;CYCL 2m Reno NUMSER GENERATOR 
; SEE F SwWO _SET 

;9R IF SET - READ ONL 

;READ/WRITE “SELECTION DIVISOR 

:GET SELECTION VALUE 

; DETERMINE IF READ OR WRITE 
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see Sieh GLEBE oxevoe zs: Fev owas FEBLECH Reed ‘Geeer on CODE: 


S63 O1s442 Se 05 1777? BIC arc RS RASK OU aut BUT gir 0 
2364 O1s446 009004 ADD 6 TA LE ured OR READ CODE 
e368 6is%Se 110586 ood074 3$: MOVS RS;S$NCODE(RO) ORDER SELECTION CODE TO CONTROL BLOCK 


;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES "MINSEC’ & *MAXSEC’ 


293 016456 016005 000116 RANSEC: MOV MAXSEC(RO),RS  ;GET MAXIMUM SECTOR ADORESS 

2970 916462 S26005 000120 CMP MINSEC(RO),;RS ;’MINSEC’ AND "MAXSEC’ THE SAME 7 
2971 O16466 001417 BEQ 2s :BR IF THEY ARE 
S72 016470 166905 000120 SUS MINSEC(RO) ,RS ; SUBTRACT ne seen ADDRESS 
$73 Ol6474 100002 oP :BR IF MAX LARGER MIN 

e374 016476 062705 000026 ADD #22. ,RS ; CORRECT THE NUMBER 

e375 016502 905205 1$: INC RS s INCREMENT Oda Fo USE AS DIVISOR 

e376 016504 004737 026756 JSR PC, GETREM ;GET THE RANDOM AUGMENT 

es77 016516 066005 000120 ADD MINSEC(RO),RS  ;NEW ADDRESS 

2975 016514 Ge0Se7 O0000eS CMP RS,#el. ;IS VALUE TOO LARGE ” 

e375 016520 101402 BLOS = e$ ;8R IF wr 

2389 O165ee 162705 000026 SUB s22.,RS CORRECT VALUE 

e981 016526 110560 900076 es: MOVE ==» RS, $NSEC(RO) STORE SECTOR ADDRESS IN OPS 


;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES “MINTRK’ & *MAXTRK’ 


2984 
2985 O16532 016005 oD0112 RANTRK: MOV MAXTRK (RO) RS 3967 MAXIMUM TRACK ADDRESS 
2386 916536 026005 000114 CMP MINTRK(RO) /RS MINTRK’ AND 'MAXTRK’ THE SAME ? 
2987 O16542 091417 8E0 23 aR IF THEY ARE 
e388 716544 6600S oco114 sug MINTRK(RO).RS  :SUBTRACT MINIMUM TRACK ADDRESS 
2389 16550 100002 s BPL 1§ ibn IF MAX ARGER THAN MIN 
2390 o16552 062705 o000E3 ADD #19. FS 5 CORRES NURGER 
2991 O16556 O0S20S 18: INC RS t TCRENENT OIFFERENCE To USE AS DIVISOR 
2992 016569 004737 026756 ISR GETREN :GET THE RANDOM AUGMENT 
016564 O66005 609114 ADD art RO) RS NEW TRACK ADDRESS 
2994 016570 O20527 oo0022 CMP RS, #18. ir JALUE TOO LARGE ° 
2995 016574 101402 BLOS 3 BR *© NOT 
2996 018576 162705 o00022 . SUB $19. RS Peek VALUE 
$227 O16602 110560 .009077 2s: MOVE RS, SNTRK(RL. ‘STORE Tr.” ADDRESS IN DFS 
$333 ;GENERATE A RANDOM CYLINDER ADDRESS BETWEEN VALUES "MINCYL’ $8 *MAXCYL" 
3001 O1G696 012737 000633 9001350 MOV #411.,CYLIMT _ ;ASSUME AN RPOW’S 
3002 16614 932760 O00002 000262 OTT agrTol, SRPDT(RO)’ ;SEE IF RPO 
3003 Olese2 001403 BEQ BNCYL ;BR IF NQT 
3094 O16624 012737 001457 001359 MOV sCHANGE CYLINDER LINIT 
| 3005 916632 016005 000106 RANCYL: MOV agus, Cx Rs sGET tex CYLINDER, ADDRESS 
3006 018636 05 s0o1i0 CMP MINCYL(RO) (RS eit AXCYL’ THE SAME ? 
3007 16 42 001417 = 2 e te 
3008 O16644 166005 cOd110 Uj MINCYL(RO) RS UB Rac MINT AUN CYLINDER ADDRESS 
3008 Ol66So 100002 BPL 1$ F MAX LARGER. T MIN 
10 Dib 063705 001350 ADD CYLIMT,RS are THe creer 
Il Ol6656 0052 1$: INC RE s CORR MENT IFfe NCE To USE AS DIVISOR 
2012 O1S660 004737 026756 JSR PC, GETREM GET THE RANDOM AUGMENT 
2013 O16664 O€6005 00110 ADD MINCYL(RO),RS NEW CYLINDER ADDRESS 
2014 916670 023705 9001350 CMP CYLIMT,RS 21S VALUE TOO LARGE ? 





— + wee - - - - - ae ee oO 
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004737 
110560 
012760 
000207 


012705 


001350 
a 
se 


001364 
001364 
001400 
026756 


032302 
000102 
po00d1 
000004 
027004 
000004 
001409 
009102 


032302 


pooode 


B008%s 
177777 


oocoo4 


000074 


000102 
000404 


000102 


000074 


000074 


000104 


BHI BR IF NOT 
SUB : CORREC ALUE 
2$: MOV : “Be Zag) $510 byt th R R ADDRESS IN DPB 
CMPB NCODE(RO) WRITE HEADE 
BNE aNsIZ :BR IF NOT 
MOV Roe , SNWRDL (RO) ’ iCHANGE WORD LENGTH ‘0 269 FOR WATHO ORDER 
CMP MAXDL: #260. sCAN A ULL SECTOR BE WRITTEN 
BHIS §- RANPA 7B AN 
MOV MAXDL SNWRDL(RO)’ ;CHANGE TRANSFER SIZE 
BR npat sCONTINUE WITH THE SELECTION ‘ 
;GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 8 THE VALUE IN "MAXDL’ , 
a 
RANSIZ: MOV MAXOL , RS ;GET BUFFER SIZE 
TST WCSEL ; SELECT ne rANOON WORD COUNT ” ; 
INC RS IN NCREMENT THE MAXIMUM SIZE bf 
ISR PC, GETREM :DIVIDE BY VALUE 
TST RS 1S THE BEMATNOER Qo? l 
BNE 1$ sO ONTIN 
ISR PC. SRAND 6 ¥CL LE’ THe RANDOM NUMBER GENERATOR 
13: MOV RS, SNWRDL (RO) WORD LENGTH TO CONTROL BLOCK 
MOV R5’-(SP) NEW WORD L LENGTH ON STACK FOR CHECK 
CLR -( Sp) *MAKE UPPER DIVIDEND ZERO 
MOV #256. ,-(SP) “SECTOR SIZE IS THE DIVISOR 
gITB pee : SEE IF NeXT ORDER IS A HEADER ORDER 
ADD (SP) :ADD HEADER SIZE-TO- SECTOR SIZE 
2s: JSR Pe, LINKDY sDIVIDE BUFFER SIZE BY SECTOR SIZE 
MOV REMAINDER U THE STACK 
CMP (Sp) “i's de IF REMAINDER. LESS THAN 
BHIS 4§ :BR IF 
qs WCSEL i SELECTING RANDOM TRANSFER SIZES ? 
su , SNWRDL (RO) _iabdusT WORD LENGTH DOWNWARD 
2S: TST (SP) : CORRECT THE STACK POINTER 
ISR Rain s¢YCL CLE THE RANDOM NUMBER GENERATOR 
4g: TST (SP) ARE ST wits STACK POINTER 
CMPB a8 SNCODE (RO) ‘SEE IF WRITE 
BNE RANXIT :BR IF NOT WRITE "Bata 
;GET A RANDOM PATTERN NUMBER 
RANPAT: JSR PC, GETPA T PATTERN CODE 
V RS Sheat (RO) iMOVE PATTERN CODE TO CONTROL BLOCK 


M 
RANXIT: MOV al, $NEXT (RO) SET PARAMETERS SELECTED INDICATOR 
RTS ; RETURN 


;ROUTINE TO SELECT A WRITE (OR wate CHECK) OPERATION. 
RANWRT: MOV #4,RS ;WRITE OPERATION SELECTION DIVISOR 














poate bie eRJD-4, yng ‘S/ ay ita EXERCISER MACYL1 27(65S) 28-APR-76 17:04 PAGE 60 
DzR 

















3063 017124 004737 026756 ISR pC GETREN :GET SELECTION CODE 

$09 017130 005737 901404 TST autoc ARE WRITE CH CHECK ORDERS TO BE SELECTED 

3072 O17134 901403 ** BEQ 1$ ‘BR IF THEY ARE nie 

3073 017136 152705 ooooc2 BISS 32, RS :SET CODE TO EXCLUDE WRITE CHECK ORDERS 

774 17142 000420 BR 3$ ‘COMPLETE SELECTION 

3u-5 O17144 O20S27 o00001 18: ¢ RS, #1 sHRITE CHECK SELECTED ? 

3076 iris 101015 BHI 

307 171 32760 000002 o000e4 BITB w&2,S$CODE(RO) PREVIOUS WRITE OPERATION 

3078 9517160 001407 BEQ 2 R IF PREVIOUS WAS READ oR WRITE CHECK 

3979 O17162 116960 o00024 oDp0074 MOVB  $CODE(RO) scone RO) «MOVE CODE TO 'NEXT CODE’ 

3989 917170 142780 O0000e o00074 BICB #2, $NCODEIRO HANGE WRITE TO WRITE CHECK 

3081 017176 Oo041! 8R o$ ier 

3082 917200 OS2705 oo000e2 23: BIS ‘CHANGE WRITE CHECK TO WRITE 

3083 017204 005737 001376 38: TST Se anaT : WRITE HEADER ORDERS ALLOWED ? 

3084 017210 901002 BNE 4g :BR IF THEY 

3085 917212 042705 00001 BIC #1,R5 sALTER POSSIBLE WRITE HEADER 

3088 017216 110560 000074 4g: MOVB  RS;SNCODE(RO) SETUP *NEXT’ CODE Y. 

3087 017222 000207 Ss: RTS PC : RETURN ~ 

3585 ;ROUTINE TO SELECT A PATTERN 

3091 017224 012705 oD0020 GETPAT: MOV #20,R5 ;SELECT PATTERN 

3092 017230 004727 026755 ISR PC, SETREM C 

3093 017234 005705 TST WAS PATTERN ZERO SELECTED ? 

3094 917236 001903 BNE 5 :BR IF NOT 

309S 017240 004737 032302 | ISR PC, SRAND “CYCLE THE RANDOM NUMBER GENERATOR 

30% 017644 900767 BR GETPAT ; TRY_AGAIN ds 

3087 917246 006305 18: ASL RS !MAKE CODE INTO TABLE INDEX % 

3038 017250 000207 RTS . PC f 

Fu 

3100 : ROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES | 

4 : ; 











3102 MOV #OPB,R ;DPB ADDRESS wk 
3103 ; JSR PC, Sean >SELECT THE PARAMETERS ; 
3104 ISR PC’ GE 

3105 : TURN 45 ()) 
2106 ‘ 
2107 017252 o10S4e GETPAR: MOV RS, -(SP) -SAVE RS } 
3108 917254 116060 000234 000027 MOVB  $RPCS1(RD) SPREVO(RO) ;SAVE CURRENT PARAMETERS 

3109 617262 032760 o00006 900074 ~~ BIT #6,SNCODE(RO) :SEE IF NEXT OFCRATION IS READ OR WRITE 

3110 017270 9001007 BNE 1$’ ‘BR IF E 

3111 017272 O16060 oo0012 oo0034 =. MOV SCYL(RO),SPREVA+2.90) ;SAVE STARTING CYLINDER 

3il2 017300 O16069 O00010 900032 MOV $SEC(RO),$PREVA(RO) ;SAVE STARTING SECTOR AND TRACK 

3113 017306 O00414 BR 23 

3114 017310 004737 o22244 1$: ISR PC READDR “CET THE DECRENENTED SECTOR AND TRACK ADDRESSES 
3115 617314 112660 000033 MOVB (SPs, spre vied » TRACK ADDRESS 

3116 017320 112660 900032 MOV (SP)+, SPREVA(RO) SECTOR ADDRESS 

3117 017324 O16060 000272 000034 MOV SP PosthO) SPREV vaeath CURRENT CYLINDER 

3118 017332 032777 OCOlOO 161600 2s: BIT aswR WITCH 6 SET ? 

3119 017340 001043 _ BNE iB IF SET 

3120 017342 116060 O0oo074 ooo024 MOYB Bestel, $cODEtRO) LOGICAL CODE FOR OPERATION 

3121 917350 116005 000074 MOVE $NCODE(RO),RS ;LOAD RS FOR USE AS TABLE INDEX 

3lee 017354 116560 901740 oog0n2 COMTBLIRS) COMMA RED :RPO4 COMMAND CODE 
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o SoMow Lowe 
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W000 G) GIGIGI WIG) GI) GIG) GIGI GI) GIG) 0) GI GI GI I GI GI GI GI GIGI) GI I GI GI GI GI GI GI GI CI GIGI GIGI OC IGIGIGIGIG, 
C2 Scho Ger One oro Oe SUT Coro Cou oo aoe 


bb b= 6 + 6 b+ 8 bb 8+ = 0 0 8 + = 0 0 8 bo 0 0 2 2 0 ho pe b> 9-2 2 9 0 bo hs 3 2 pe pe 


“I 
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000004 
000104 


000002 
oo0c0e 


032302 


000040 
000036 
000026 


000012 


000011 


Bb3ui8 
bo00s5 
000904 


C00022 
000024 


000022 


000027 


000034 


000106 


000112 
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oie oe 


MOVE SReErTaay sSEET05)" - PATTERN eff 
MOV NSEC(RO), $SEC(R TRACK AND SECTOR ADDRESSES 
MOV SNCYL(R ‘CYLINDER ADDRESS 
MOV SNIRDL CRO} § SRO TRO)’ YBUFP ER 
MOV SNWROL(RO);SWROM(RO) WORD COUNT FOR THE RH11 
NEG SWROM(RO) sCOMPL EMENT IT 
MOV #256. SSSEC(RO) INITIAL VALUE OF SECTOR SIZE 
BIT #1, SCODE (RO) ; HEADER OPERATION 
BEQ 33° -BR IF NOT 
ADD 4 $SSEC(RO) :ADD HEADER SIZE 
33: CLR SNEXT(R ;RESET "PARAMETERS LOADED’ INDICATOR 
MOV (SP)+, Re RESTORE RS 
RTS PC RETURN 
3 ROUTINE TO COMPRESS A LIST 
: MOV BADDRS R1 ;COMPRESS LIST STARTING AT THIS ADDRESS 
: ISR C,CMPRES 
: Re TURN 
CMPRES: MOV 2(R1), (RL) ;COMPRESS THE TABLE IN R1 
BEQ 1$ BR WHEN ZERO FOUND 
ADD 2 RI : INCREMENT RI 
BR CHPRES ‘CONTINUE COMPRESSING TABLE 
1$: RTS RETURN 
: ROUTINE TO SETUP PARAMETERS FOR A SEQUENTIAL READ OR WRITE OF THE DISK 
: MOV :DP8 ADDRESS 
Po. MOV ~y OPA CK (RO) : WRITE PACK’ FLAG 
: MOV #1, SPACK(RO) ; READ PACK’ FLAG 
: JSR PC’ WRTPK 
: RETURN 
WRTPK: JSR 


PC, SRAND ;CYCLE THE RANDOM NUMBER GENERATOR 
TST SOPERC+2(RQ) © BEE IF FIRST OPERATION 

BNE = WRTPK1 R IF UPPER WORD OF COUNTER NOT ZERO 
TST $0PERC(RO) WORD ZER 


WO 
BNE" WRTPKI iL0 IF NOT 1ST. GPERATION 
TSTB SPRCK (RO) :SEE WHICH * OR 
BMI PK3 3BR IF’ 
BR PK2 *R’ OPERATION 
WRTPK1: MOVB SRPCST(RO), SPREVOCRO) “SAVE CURRENT PARAMETERS 
JSR RE DECREMENTED SECTOR AND TRACK ADDRESSES 
MOVB  (SP)+, SPREVA+1 (RO) TRACK ADDRESS 
MOVB  (SP)+; SPREVA ECT 


(RO OR ADDRESS 
MOV SRPCCIRO) , SPREVAEtRO) ;CURRENT CYLINDER 

MOV SRPDA(RO);$SEC(RO) ;NEW SECTOR & TRACK ADDRESS 
MOV SRPCA(RO) ,SCYL(RD) * NEW CYLINDER ADDRESS 

CMP SCYL(RO),MAXCYL(RO) ':SEE I 

BLO 2g or IF LESS THAN *MAXCYL’ 

I 1$ IF GREATER THAN *MAXCYL’ 

CMPB $TRK(RO), MAXTRK CRBS SEE IF AT MAX TRACK 
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 etetatetet—tetetitetetetepetetetetetetepatat— 


FO SBD Ue 


ne 


3208 
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}POFOFOFUrururorOrurore 
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on 
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gown 


Powe 


fu 


Blatatatatatatatys 
praraitatie g 


ONOVVOOOKVO0OK0O00000 


> +b >= >= 6 — 0 6 b— b— 6 pb — pp 


Sj 
we 


eesesee 
IIIIIN 
gedzaaa 


017770 


101422 


000410 


000104 


000124 


000010 - 


000272 
000003 
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0 
000012 
161270 
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000004 
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0 
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o0008e 
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es IF_NOT_ GREATER 
1$: MOVE MINTRK(RO 


-BR 
),STRK(RO) ;RESET TRACK ADDRESS 
MOVE NINSEC(RO) , SSEC( RO} RESET SECTOR ADDRESS 
MOV MINCYL(RO) , SCYL( sRESET CYLINDER ADDRESS 
JSR PCE DRIVE (NORMAL TERMINATION) 
BIT wSHO4, SISUR :1S mt CH 4 SET 
SNE 2s SET 
TST (SP)+ PINCREMENT THE STACK POINTER 
IMP MAIN "RETURN DIRECTLY TO ’MAIN’ 
23: MOV MAXDL , SWRDL (RO) ’ ;BUFFER SIZE rs MAXIMUM 
MOV MAXDL; $WROM(RO) :WORD COUNT 
NEG SWROM CRO HANGE WORD COUNT TO 2’S COMPLEMENT 
TSTB  §$PACK(RO) READ OR WRITE ? 
BMI WRTPK3 BR WRITE 
WRTPK2: MOV wee0. $SSEC(RO) °;SECTOR SIZE FOR READ 
MOVB SCODE (RO) , CObE FOR READ OE AcER & DATA 


MOVB BROAD, SOOO ROD” Te Ce. Aa OPERATION 


BR T UP 
WRTPK3: MOV #56. SSSEC(RO) :SECTOR SIZE 
MOVB SCODE(R : CODE apek WRTDAT 
MOVB HIATDRT SCOMNDC (RO) ;0P CO 
ISR PC, GETPAT :GET aTteen CODE 


MOVB RS? nia PATTERN CO 
WRTPK4: GLR SNEXT CLEAR "PARAMETER SELECTED’ INDICATOR 


;ROUTINE TO te oa OF ERROR IS AT A LOCATION ON THE PACK DEFINED 
: UL IN THE BAD TRACK/SECTOR TABLE FOR THE DRIVE. 


; CALL: 
: ISR PC, SPOTCK 
: RETURN sERROR AT AN ADDRESS IN TABLE 
: RETURN2 NO TABLE ENTRY FOR ERROR ADDRESS OR 
: :PARAMETER "NOTPRT’ IS 0 
SPOTCK: 
MOV R1,-(SP) ;;PUSH RI ON STACK 
MOV Re’ -(SP) Re ON ST 
MOV #SBDSEC,R1 {INCREMENT F FOR BAD SECTOR TABLE 
ADD RO,Ri SADD THE BLOCKS R BEtING RODRESS 
MOV #8 Re 3BAD SECTOR TABLE SIZE_COUNT 
1S: CHP (Ri), SRPCCCROD :1S CYLINDER IN THE TABLE ? 
TSTB =: (RL) i TRACK ENTRY ? 
BMI c$ NOT 
JSR PC. READDR ; DECRENENT THE SECTOR/TRACK ADDRESS 
CMPB ss (SP) +, 3(R1) -COMPARE THE T ADDRESS 
BNE 33 :BR IF IT IS NOT ant UAL 
TSTB = B(R1) *IS A SECTOR ADDRESS IN THE TABLE ? 
BPL 2$ :BR IF ONE 
TST (SP)+ : INCREMEN THE STACK POINTER 
BR ‘DISPLAY THE M 
23: CMPB (5P)+,2(R1) :COMPARE THE SECTOR ADDRESS 
BNE 4g *BR IF NOT EQUAL 


BF S$ :CHECK "NOTPRT” 


} 
) 


lL. SE@ cose 
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DZRID.019 MAIN PROGRAM 


3231 020060 005726 3$: TST (SP)+ s INCREMENT ua Stee POINT 





3 2701 oo0004 4g: ADD #4,R1 :GO TO THE N i THE TABLE 
25 a3 au ; [st cat) : PAST THE TR ‘t S$ 123%, 
3235 920072 005302 > ie R2 BE OREMENT. THE MAXIMUM ENTRY COUNT 
: 020974 001345 BNE 18 BR IF £ltORE TO CHECK 
3536 G5106 ppes98 001408 cs: 78, NOTPRT PRAT ti THE ERROR ANYWAY ? 
3239 O20104 001006 BNE 7§ :BR IF NOT 
3240 920106 912737 177777 001264 MOV #-1, BADSEC :SET THE INDICATOR FOR THE IDENTIFICATION | *NE 
1 020114 O62766 600002 Oo0004 6&5: ADD #2,4(SP) INCREMENT THE RETURN 
2242 020122 73: 
3243 Oc0l22 012602 MOV (SP)+,Re ;;POP STACK INTO Re 
3244 020124 012601 MOV (SP)+’RI : iPOP STACK INTO RI 
e465 020126 000207 RTS PC *RETU 
sSue 53 SHAK AKSKEAHLA KERALA RLS HELA RA LARK ARERR AE KSLA ESSERE KELL LSE LEKZEE 
+ 
3249 .SBTTL ERROR MESSAGE GENERATION ROUTINES 
ase . 5 RRR HR RK EAL KER KEELE RHEE EN AREA KER E EEE EERE EERE ERE EERES | 
3253 :PRINT LINE 1 OF ERROR MESSAGE: 
3e58 :* HH: MM: SS" 
3256 920130 032777 OO2000 161002 LINE1: BIT #SW10,aSWR s SHITCH 10 SET ? 
3257 020136 001402 EQ F NOT 
3258 020140 104401 001160 TYPE $BELL RT NG THE BELL 
3259 020144 032777 Ge0000 160766 1S: BIT kSW13, ISWR s INHIBIT TYBESUT ? 
3260 O201S2 001403 BEQ 2s *BR TF NOT 
3261 O20154 104414 001165 — DISPLY .SCRLF iCF 
3262 020160 O00404 BR 35 “EXIT 
3263 20162 004737 023400 2s: JSR PC, STIME :;YPE THE TIME 
3264 O20166 104414 OS2074 DISPLY ak tisPo } 
seb 020172 000207 3S: RTS “RETURN & TYPE DESCRIPTION 
3267 ;PRINT LINE 2 OF ERROR MESSAGE 
2268 s PRESENT ORDER = XXXX PREVIOUS ORDER = XXXX" | 
3269 * ERROR AT BAD TRACK/SECTOR’ 
3270 ?*DRV RPCS1 RPCS2 RPDS1 RPERI RPER® RPER3 PEC! RPEC2’ 
3271 eu RPBA REDA RPAS §RPLA RPDB RPMR  RPDT’ 
3272 RPSN _RPOF . RPCA  RPCC _ STATUS’ 
3273 :*BUS ADDRESS OR WORD COUNT NOT CONSISTENT’ 
3274 ?*RPBA = XXXXXX PWC = XXXXXX’ 
275 :*BUFFER ADR = XXXXXX SIZE = XXXX ACTUAL NMBR WROS XFRD = XXX’ 
3277 020174 LINE2: 
3278 020174 O10346 R3,-(SP) :;PUSH R3 ON STACK 
3279 020176 O10446 MOV R4' -(SP) ; PUSH R4 ON STACK 
3280 O20200 o10S46 MOV RS'-(SP) PUSH RS ON STACK 
3281 Oefed2 104414 o01165 DISPLY ,SCRLF : ape LF 
3282 20206 005037 020334 CLR 4g : CLEAR NESSAGE ADDRESS STORAGE 
3283 Oe0ele oos004 CLR RY WORKING R 


3284 020214 012737 OS0160 920334 MOV #LINeC 4S s ADDRESS OF TBRESENT ORDER = * MSG 
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ERROR MESSAGE GENERATION ROUTINES 


SEQ 0100 



































3285 O20222 116004 000234 MOVB  SRPCSI(RO),R4Y  ;GET THE OPCODE 
3286 beceee pve704 177701 BIC #tC76,R4 s SAVE ORL SIGNIFICANT BITS 
3287 Oe0e 4737 020270 ISR PC, 1S TYPE THE FIRST MNEMON 

98 De0236 005737 020340 TST iSEE IF NEHORIC ENTRY FOUND 

89 01440 BEQ LINE2A ‘BR IF NOT 
3290 020244 012737 050201 020334 MOV #LINOP, 4S ‘ADDRESS OF "PREVIOUS ORDER = ’ MSG 
3291 O20252 116004 000027 MOVE  $PREVO[RO),RY ;PREVIOUS OPERATION CODE 
3292 Oc0056 042704 177701 BIC #!C76,R4 SAVE ONLY SIGNIFICANT SITS 
3223 020262 004737 020270 ISR PC, 1S TY YPE THE PREVIOUS MNEMONIC 
3294 Oe0266 000425 BR LINE2A NTINU 
3295 020270 O0S005 1$: CLR RS CLEAR THE Bete INDEX 
329% O20272 126504 001746 25: CMPB  OPTBL(RS),RY  ;LOOK FOR T 
3297 020276 001405 BEQ 3$ :BR WHEN OPCODE COUNT EQUALS OPCODE 
3298 620300 i05765 O01746 TSTB ‘ OPTBL(RS) LOOK FOR END OF TABLE 

020304 100402 BMI 3 IF E 

3300 020306 o05205 INC RS tT NCREMENT THE POINTER 
3301 0629310 000770 BR 25 :CONTINUE - NOT END OF TABLE 
3202 O20312 006305 23S: ASL RS ; SH IFT INDEX 
3303 020314 006305 ASL RS ‘SHIFT THE INDEX 
3304 020316 006305 ASL RS ; SHIFT THE INDEX 
3305 020320 012737 901770 o20340 MOV #MNTBL, SS ADDRESS OF ASCII TEXT TABLE 
3306 020326 060537 020340 ADD RS, 5S ¢ ADD THE INDEX 
3307 020332 104414 DISPLY TYPE IT 
3208 020334 O0C2u0 4S: “WORD OO ZADDRESS OF PRESENT’ OR ‘PREVIOUS’ MESSAGE 
3309 029336 104414 DISPLY . s TYPE THE OPERATION MNEMONIC 
3310 020340 Oo0000 cs: “WORD 6 "ADDRESS OF MESSAGE 
3311 O20342 000207 RTS PC ; RETURN TO MAIN ROUTINE 
$312 020344 737 001264 LINE2A: TST BADSEC - {PRINT THE BAD SECTOR LINE ? 
3313 O6e03S0 001404 BEQ LINER BR IF NO 
3314 020352 104414 001165 DISPLY ,$CRLF ;CR-LF 
3315 020356 104414 oS0225 DISPLY ‘LIN2S ‘ERROR ADDRESS DEFINED AS BAD AREA 
3316 O20362 104414 O01165 LINE2B: DISPLY ’?SCRLF :CR- 
3317 O20366 104414 047554 DISPLY ‘DHIY STANDARD RPO4/S/6 REGISTER HEADER 
3318 0e037¢ 04414 052074 DISPLY ‘LINSPO TYPE A SPACE 
3319 0203 13746 COl246 MOV NIT. -(SP) ‘PUT THE DRIVE NUMSER ON THE STACK 
3320 O20402 004737 O22224 JSR PC, LINDEC :TYPE DRIVE NUMBER 
3321 D20405 04414 052073 DISPLY L INSP imeclet 
3322 O2041e . 0127 50100 MOV kOT14,R5 ;REGISTER INDEXES 
3323 020416 004737 O2cS4s JSR PC, 3$ THE REGISTERS 
3324 Oe0422 032777 OOCO40 160510 BIT #505 , ISWR ‘PRINT THE OPTIONAL REGISTERS ? 
3325 020430 O01014 BNE 1s :BR IF 
3326 Of0432 104414 047660 DISPLY | DHIS 
3327 020436 012705 Os0lee MOV iors, RS ; SECOND DATA LINE 
3228 O20442 004737 O20S46 ISR Ce :PRINT T 
3329 O20446 104414 047757 DISPLY aa 
3330 O204S2 O1e70S oso144 MOV iit a : THIRD DATA LINE “" 
3331 O20456 004737 O20546 ISR PC, 3$ sPRINT THE REGISTERS 
3332 O204be 032760 OO0100 onools 1S: BIT #BiT&,STATUS(RO)’ ;DATA EOROR 
3333 020470 O0142e2 BEQ 2 sBR IF _NOT 
3334 O20472 O16046 oD0020 MOV SWRDL(RO),-(SP) : TRANSFER SIZE 
3335 O20476 O66016 O000236 ADD SRPWC(RO)>(SP) ADD REMAINING WORD COUNT 
3336 006316 ASL (SP) : CONV BYTE INCREMENT 








020502 ERT TO AN 
3337 020504 066016 000006 ADD $BUF(RO),(SP)  ;BUFFER STARTING ADDRESS 
3338 020510 Oeeb60 000240 CMP (SP)+,$RPBA(RO) ;CORRECT BUFFER ADDRESS ? 
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DZRJD.919 ERROR MESSAGE GENERATION ROUTINES 


aT 


ef 





3333 te et 1 BF ePL y i | BUS, al bress AND WORD COUNT ARE NOT CONSISTENT’ 
3 1 peness 104414 Ba tes DISPLY ’*S$CRLF CR-L 
EAE De05eb 004737 020640 JSR PC, LINE3D :PRINT LINE 30 OF ERROR MESSAGE 

De0e3e 737 a JSR PC; LINE4Y ‘PRINT LINE 4 OF ERROR MESSAGE 
3345 020536 012605 : MOV (SP)+,R5 :;POP STACK INTO RS 
EEA 020540 012604 MOV (SP)+°RY ;;POP STACK INTO R4 
3347 O20542 012693 MOV (SP)+°R3 ::POP STACK INTO R 
3348 O20544 900207 RTS PC *RETURN TO ERROR PROCESSING ROUTINE 
3349 029546 012546 3S: MOV (RS)+,-(SP) ;PUT THE REGISTER INDEX ON THE STACK 
3350 O205S0 960016 ADD RO, (SP) ?ADD DRIVE’S TABLE ADDRESS 
3351 20552 017646 o00000 MOV a(S) -(SP) ; VALUE 
3352 0205568 004737 O22l7e JSR LINOCT “TYPE IT 
3353 020562 005726 TST CSbbe ‘CORRECT THE STACK POINTER 
3354 020554 104414 052073 DISPLY PINS *PRINT 2 SPACES . 
3355 0920570 005715 TST the) AT END OF LINE ? 
335& 020572 001365 BNE 3$ *BR IF NOT 
3357 O20574 104414 001165 4S: DISPLY ,SCRLF :CR-LF 
$358 020600 000207 RTS pc * RETURN 
3360 ;PRINT LINE 3 OF ERROR MESSAGE 
$361 :*ERROR AT CCC TT SS PREVIOUS ADR = CCC TT SS’ 
3363 O20602 104414 OS0261 LINE3: DISPLY ,LINM3 sLINE 3 ENTRANCE 
$364 920606 000517 BR LIN3.1 *FINISH PRINTOUT 
3366 sPRINT LINE 3 OF ERROR MESSAGE 
$367 -*START CYL = CCC END CYL = CCC’ 
3369 020610 104414 050277 LINEA: DISPLY ,LINN3 sLINE 3A ENTRANCE 
3370 020614 600514 BR LIN3.1 *FINISH ERROR LINE 
3372 ;PRINT LINE 38 OF ERROR MESSAGE 
373 :*START CYL = CCC END CYL = CCC ACTUAL CYL = CCC’ 
3375 020616 004737 O21160 LINE3B: JSR PC,LIN3.3 sLINE 38 ENTRANCE 
2376 Oe0b22 104414 001165 Y ,S$CRLF 
$377 020626 o00207 - RTS PC 
33793 ;PRINT LINE 3C OF ERROR MESSAGE 
$380 :*START CYL = CCC END CYL = CCC ACTUAL CYL = CCC TRK = TT’ 

_ 3382 020630 004737 021160 LINE3C: JSR PC,LIN3.3 sLINE 3C ENTRANCE 
$383 820634 900137 021212 IMP LIAN3.4 FINISH MESSAGE 
3385 ;PRINT LINE 3D OF ERROR MESSAGE 
Se] : RPBA = XXXXXX  RPWC = XXXXXX’° 
3388 O20640 032777 OOO040 160272 LINE3D: BIT #SWOS, ISWR ;SWITCH S SET ? 
O646 OO1416 15 iBR IF IT IS 
020650 104414 oso4so DISPLY B3 RPBA = ° 
020654 O1604% o00240 shone: RO) ,-(SP) -ASUEEE ER ADDR REG CONTENTS 
0660 004737 Oe2i72 "eR PC, LINOCT RT TO OCTAL AND TYPE IT 
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O4414 050460 
16046 000236 
Oeei7e2 
001165 


OSO344 
052073 
050507 
000010 


Oeeee4 
001165 


000040 
OSO440 


001165 


000272 


050274 


160136 


DISPLY LINMS 
$RPWC(RO) , -(SP) 
TSR PC. LINOCT 


is: BASLY ght 


;PRINT LINE 3E OF ERROR MESSAGE 


;’START CYL = CCC 
LINESE: DISPLY 
MOV 


START TRK = 


S3 
ghee) -(SP) 
PC, LINDEC 
»LINSP 
*LINST3 

_ 2¢Sp) 
STRK(RO), (SP) 
PC, LINDEC 
,LINSP 
*LINSS3 
(SP) 
$SEC(RD), (SP) 
PC. LINDEC 

SCRLF 
PC 


; PRINT LINE 3F OF ERROR MESSAGE 
;’RPDA = XXXXXX  RPCA.= XXXXXX’ 


pew BIT #SUS, SUR 
LINDAS 
$RPDA(RO),-(SP) ; 
PC, LINOCT 
LINCA3 
$RPCA(RO),-(SP) ; 
PC, LINOCT 
SCRLF 
1$: RTS PC 
CCC TT SS 
LIN3.1: MOV 
DISPLY - 
JSR 


SRPCC(RO) ,-(SP) 
PC, LINDEC 
2 
PC, READDR 
PC‘ LINDEC 


ISR 
DISPLY 
ISR PC LINDEC 
DISPLY 

MOV 

JSR ; 
DISPLY 

CLR (SP) 


LINP3 
$PREVA+2(RO).-(SP) : 
INDEC mite IN DECIMAL 


28-APR-76 17:04 PAGE 66 


RPWC = 
‘WORD COUNT REGISTER CONTENTS 
CONVERT TO OCTA. AND TYPE IT 


TT START SEC = SS’ 
;’*START CYL = 

; MOVE CYL TO STACK 
;TYPE IT IN DECIMAL 
: SPACE 

: START TRK = 

: CLEAR STACK. 

ie TO_ STACK 

YPE MY IN DECIMAL 

ica SEC =’ 
CLEAR STACK 

SECTOR ADDR TO STACK 
;TYPE IT IN DECIMAL 


;SWITCH S SET ? 
;BR IF NOT 


*RPDA = 

ity SECTOR TRACK ADDRESS ON THE STACK 

;SPA CES 
CA 


‘ 


PREV ADR = CCC TT SS’ 


itv CYLINDER ADDR ON STACK 
TYPE IT + DECIMAL 


Te ent TRACK_AND SECTOR ADDRESSES 
‘ore, THK IN DECIMAL 

: TYPE seein ADDRESS 

R ¥ AD 


N 
I PREVIOUS CYLINDER 


PR 
;MAKE ROOM ON THE STACK 


;PUT_DESIRED CYLINDER ADDRESS ON THE STACK - 


SEQ 0102 


















MO-11-D2RJD-A, 
DZRJD.O 


30.019 
3447 021124 
svi 921130 

49 921134 
SO 021140 

451 Oell4e 
3452 021146 
3453 021152 
3454 021156 
3455 
3455 
3457 
3458 021160 
3459 021164 
3460 021170 
3461 021174 
3462 021200 
3463 021204 
3464 021210 
3465 
3466 
3467 y 
3468 021212 
3469 021216 
3470 21222 
3471 Oel2ee6 
3472 Oelese 
3473 021236 
3474 021240 
3475 021244 
a7 21280 

78 





116916 


004737 


000207 


000243 
Oeeee4 
001165 


000100 


000240 
000006 


Oe2224 
001165 
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000016 
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MOVB $PREVA+1(RO), (SP) pEMSy0US TRACK ADDRESS 
JSR PC,LINDEC DR ve I N DECIMAL 
DISPLY 18. AT 

CLR ~(SP) AKE RON ON THE STACK 
MOVB $PREVA(RO), (SP) i PREVIOUS SECTOR DORESS 
JSR PC, ,LINDEC s TYPE IT IN DECIMAL 


DISPLY ,S$CRLF 
RTS pc 
:*START CYL = CCC 


END CYL = CCC’ 


LIN3. 3: DISPLY LINS3 E '3B & 3C’ ENTRANCE 
SPREVA+2(RO), ~< ;PreV Tous CYLINDER 
We PC LINDEC TYPE IT I N DECI MAL 
DISPLY tN NEN3 


"EN 
tRPCE (RO), -(SP) PET CYLINDER 
738 PC,LINDEC’ TYPE IT IN DECIMAL 
RTS 
; ACTUAL CYL = CCC TRK = TT’ 


LIN3.4: oe ;PRINT *ACTUAL’ 


NAB 
QYLDER, -(SP) 


OV “ACTUAL CYLINDER 
BIC #BIT12. (SP) CL EAR THE FORMAT BIT 
ISR PC, LINDEC TYPE IT IN DECIMAL 
DISPLY ,LINT3 : PRINT TRACK 
CLR ~(SP) *CLEAR STACK WORD 
MOVB SRPDA+I(RO), (SP)’:PUT TRACK ON STACK 
JSR LIN ; TYPE IT IN DECIMAL 
DISPLY 1SRLF 


;PRINT LINE 4 OF ERROR MESSAGE 
BUFFER ADR = XXXXXX SIZE = XXXX 


LINEY: BIT eae 


ACTUAL NMBR WRDS XFRD = XXX’ 
;DATA ERROR ? 
NO 


EQ 
DISPLY ,LINM4 :*PRINT BUFFER’ 
MOV $BUF(RO),-(SP) BUFFER ADDR ON STACK 
JSR PC. LINOCT ; CONVERT TO_OCTAL & PRINT 
DISPLY ,.LINSY ‘PRINT 'SIZE° 
MOV $WRDL(RO),-(SP) ;BUFFER SIZE 

: LINDEC’ TYPE IT IN DECIMAL 


;ACTUAL NMBR WRDS XFRD = ° 


x4 
MOV $RegA (RO) -(SP) ;VALUE IN BUFFER ADOR REGISTER 


SUB SBUF (RO), tsp) ; SUBTRACT SI ARTING ADDRESS 
ASR (SP) NVERT INTO A WORD COUNT , 
ISR PC, LINDEC TYPE IT IN DECIMAL 
DISPLY gacRLF CR-LF 
is: RTS * RETURN 
:PRINT LINE S OF ERROR MESSAGE 
:*GOOD DATA = XXXXXX BAD DATA = XXXXXX SECT POS = XXX’ 
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RIC.: ERROR MESSAGE GENERATION ROU Fines 
3501 O21346 104414 050610 LINES: CISPLY ,LINDS ;PRINT *GOOD DATA’ 
ssl2 321358 162760 339958 000240 SUB 2,$RPGA(RO) — ;BACK THE ADDRESS UP 
3553 O21 i704 00024 MOV seePonc acs 528000" DATA - ay P THe BUFFER LOCATION 
3504 Bei 364 4737 O22] : JSR LINOCT 
3505 521270 iO44l4 Oso DISPLY thas SPRINT "gap DATA’ 
3505 081374 Ciso4s 905256 MOV. gRFDE( RO), ~(SP) ;BAD DATA FROM BUFFER 
350° 921400 O04737 022172 JSR. Y 
3508 921404 O16046 000236 MOV SABHICCRO), + 65RD i 'WORD LENGTH 
3503 21410 066016 000020 ADD SuROL (RO), (SP) MAKE INTO A osirive NUMBER 
3515 5ei4i8 d0s046 CLR ;UPPER sly IDEND TO ZER a” 
3311 O21416 O16 0022 MOV $5550 (RO) ,~«SP) ;SECTOR SIZE ON THE STA 
S512 Oel422 30473? 027004 JSR LINKDV sOTVIDE WORDS XFERED By SEc70R SIZE 
3313 021426 512616 MOV (set (SP) ;MOVE REMAINDER LP THE STACK 
3514 621430 104414 oO50643 DISPLY :PRINT "SECT POS’: 
35:5 Cel43s4 G04737 022225 = PC LINDEC :T HE POSITION 
SSigé O2144O 104414 OOLIES QISPLY SCRLF gn 
#17 521444 000207 RTS PC 
3518 ;PRINT LINE SA_OF THE ERROR MESSAGE 
aes ;"MEADER FROM ERROR SECTOR XXXXXX XXXYXAX XXXXXX XXX¥XX’ 
3522 O21446 194414 O50661 LINESA: DISPLY NSS sTHEADER CONTENTS OF ERROR SECTO 
3523 Oel4s2 013746 05437 MOV ltd: -(SP)  ;HEADER POSITION 
3524 921456 004727 022172 JSR PC LINOCT :TYPE IT 
3525 O2i462 104414 052073 DISPLY t tnep SPACES 
3526 521466 01374 05437 MOV. AYLDER#2, =(SP) ; HEADER POSITION +2 
ose? 21472 004737 Cezi7e JSR PC LINocT ve 1 
S522 O2i476 104414 052073 DisPLy ,LiNsp pets CES 
3525 d21502 013746 54400 MOV EYLDER+4, -(SP) : HEADER {POSITION +4 
3520 92:506 004737 Deel re ISR PC LINOCT TYPE I 
3531 Oei512 i444 073 DISPLY LIN :SP Rees 
3532 Oci516 01374 os440e2 MOV EYLDER+6,-(SP) HEADER POSITION +é 
3533 OelSe2 904737 022172 JSR PC LINOCT YPE IT 
| 3534 Oel526 104414 052073 DISPLy ,LINSP SPACES 
2525 021532 154414 01165 DiSPLY SCRLF 
| spec 021536 000207 Riss 
pe Fd 
| 353¢ ;PRINT LINE SB OF ERROR MESSAGE 
#33 °RPECL = XXXXXX © RPEC2 => XXXXXX’ 
| 3541 021540 104414 050715 LINESB: DISPLY ,LINEPS ;"RPEC] = ° ; 
| 3542 S21544 Siso4e 900300 MOV $RPEC! (RO) ,~(SP) ;PUT REGISTER CONTENTS ON THe STACK 
| 3543 O2i5s0 004737 022172 PC,.LINO ;TYPE IT 
| 344 021554 1o4414 052073 DISPLY CENSe : SPACES 
2545 21560 1044i4 960726 DISPLY “LINEDS * REECD = * 
| 3546 O2i564 Oisods 090302 V SRPEVE(RO), -(SP)" ;PUT REGISTER CONTENTS ON THE STACK 
| 3547 921570 004737 Oeei72 15R PC. LINOCT TYPE IT 
| 3648 O81E75 104414 Oories DISFLY gtRLF 
#343 021690 000207 RTS pc ; RETURN 
| 355] ;PRINT LINE 6 OF ERROR MESSAGE 
| 3652 "SECTOR IS ECC CORRECTABLE’ 
3554 C2102 104414 OS074O LINES: DISPLY ,LINBS sECC CORRECTABLE 





2 re ee ee + ee ere ee 





NO-11-D2RID-A, 
SSag.519 

3555 921505 
3556 021812 


g 1814 
223 REtER¢ 

3563 

3564 

3555 

SSE 

3557 021622 

3568 O2is26 

3565 

3570 

3571 

36; 

3573 021630 

3575. 

357 

3577 

3572 

3573 921536 

3580 Selése 

3581 

3sé2 

3583 . 

3584 o21g44 

deis4e 

3556 -OS1654 

3587 O21656 

3588 21660 

3585 O21664 

3530 

353] 

3595 
3553 OP1b&s 
| 3594 931679 

3595 621674 

3596 021700 

3567 921704 
| 3598 Odel7i0 
| 3699 

3600 

3601 

3602 7 

3603 O21712 
| 3604 O2171¢ 
| 3e0s 621722 
| 3606 E1724 
| 360? 621730 
| 3608 621734 


RPOY 
ERRO 


LO4414 
000207 


4414 
ABodit 


104414 
000406 


104414 
000411 


104414 


‘6 MULT 
MESSAG 


001165 


“ORIVE EXER 
GENERATION 


050773 


050740 


01022 


0S10S1 


002220 


O0i1€5 


CO1ies 


051124 
000036 


032500 
027320 
01203 


021656 


CISER MACYL! 27(655) 28-APR-7& 17:04 PAGE 69 
“ROUTINES 
DISPLY SCRLF 
RTS be 


Pee Tok REAR cOkeecty At OFFSET N’ 


LINEA: atl cee ;PRINT "READ CORRECTLY AT OFFSET N° 
;TYPE THE REST OF THE LINE 


;PRINT , IMG pe OF THE ERROR MESSA 


;*SECTO UC CORRECT PARLE AT OFFSET N° 
LINEGS: aad ae ;PRINT *SECTOR IS ECC CORRECTABLE ° 


;PRINT LINE 6C OF THE ERROR MESSAGE 
CORRECTED ON NTH RETRY’ 


LINEGC: DISPLY - ,LINGS ; CORRECTED ON NTH RETRY’ 
aR LING.2 :TYPE THE REST OF THE LINE 


;PRINT LINE 6D OF THE ERROR MESSAGE 
! *UNCORRECTABLE AFTER N RETRIES’ 


LINESD: DISPLY ,LINUOS s "UNCORRECTABLE AFTER N RETRIES’ 
ER LIN6.2 :FINISH 
:TYPE THE OFFSET VALUE IN MICRO-INCHES 
LINS.1: ASL Ri _. $DOUBLE THE OFFSET TABLE INDEX 

HOV ay OFMTBL(R1),1$  ;ADDRESS OF OFFSET POSITION MESSAGE 
18: “WORD «=O :OFFSET VALUE 

OISPLY .SCRLF 

ize 

sRETRY COUNT TYPEOUT 
LINS.2: CLR -(SP) CLEAR STACK 

MOVB = RETRY+1, (SP) RETRY eet 

JSR PC LINDEC TYPE i in THECIMAL 

DISPLY ,LINRE : "RETR 


DISPLy .*$CRLF 
RTS pC” 


;PRINT LINE 7 OF THE ERROR MESSAGE 


TS ORDERS:XXXXX TOTAL ERRORS: XXX WROS XFRO:XXXX)XX  WRDS. READ: XXXXXXX" 


LINE7: DISPLY ,LIN70 sPRINT ORDER COUNT 
MOV BSOPERC, -(3P)  3T0 STACK’ 
aD RO, (SP) ;ROD THE BASE ADDRESS 
JSR PC’ $0B2D 3 CON! VERT IT 
JSR PC’ §SUPRS 


5 N Rt 
DISPLY ,LIN?T TOTAL ERRORS 











SRRRER ER IES 
0D “IMU £ Lotus 


inal 


2044 012746 
16 


104414 
004737 
000207 


109000 


051124 
090036 


C32500 
027320 
051134 
000042 


032509 
027320 


5 
100600 


OS 1246 
020174 


RPOY 5.6 MULTI-DRIVE EXERCISER MACY11 27(655) 28-APR-76 17:04 PAGE 70 
ERROR MESSAGE GENERATION ROUTINES 


157106 


156766 
















MOV $TOTALCRO),-(SP)_ 0 §I 
i38 C LINDE srype 11" Bec eet aL 
SPLY ,LIN?X :PRINT 'WRDS 
MOV BSTRANS,-(SP)  :ADDRESS OF Ou WORD ON STACK 
Adc RO, (SP) 
ISK PC, $DB2D : CONVERT 
38 PC SSUPRS PRINT 
SPLy ,LIN ;*BITS READ’ _ 
MOV REREAD, -(SP)  ;LOW WORD ADC “Ss 
ADD , (SP 3 
JSR PC; $082D : CONVERT 
R PC $SUPRS : PRINT 
SisPpLy ,$CRLF 
DISPLY ‘> S$CRLF 
bSW'S, ISWR :SEE IF "HALT ON ERROR’ - SWITCH IS 
Q 1$ ‘BR IF NOT 
HALT ‘SWITCH 1S HALT 
18: RT! PC 


;PRINT LINE 7A OF _ERROR MESSAGE 
; ORDERS: XXXXX TOTAL SEEKS=XXXXX TOTAL MISPOS ERR = XXX TOTAL SKI,OCYL ERR = Xxx" 


LINE7A: DISPLY 70 -*ORDERS = ° 

MOV bsoreRc, -(¢7) ;ORDER COUNT INCREMENT 

add RO, (SP) ;ADD BASE ADDRESS 

ISR PC; $DB=0 :CONVERT THE COUNT 

JSR PC’ ®SUPRS :PRINT IT 

DISPLY .LIN7P :*TOTAL SEEKS = ' 

MOV a$POSIT,-(SP)  ;TOTAL SEEKS j 
ROD RO, (SP) : DEVICE TABLE ACORESS - 
Son PC; $032D :CONVERT THE SEEK COUNT 
JSR PC’ $SUPRS :PRINT IT 

DISPLY via ’ “TOTAL MISPOS ERR = ° 
MOV $MISPO(RO).-(SP)" sTOTAL ERRORS 

SR LINDE ;TYPE IT IN DECIMAL : 
DISPLY .LIN7S ot? TOTAL SKI OCYL ERR = 
OV $SKI(RO).-(SP) CONVERT & PRINT IT 
JSR PC. LINDEC :TYPE IT IN DECIMAL 
DISPLy ,S$CRLF 

Orsply ‘§CRLF 

IT ’SW1S, ISWR :SEE IF HALT ON ERROR - SWITCH 1S SET 
£9 1$ ?BR IF NOT 

HALT :SWITCH 1S HALT 

1$: RTS PC 


;PRINT LINE 8 OF THE ERROR MESSAGE 
: DIFFERENT ERROR DURING RETRY’ 


LINES: DISPLY ,LIN@M 
SR PC,LINE® ;PRINT LINE 2 OF ERROR MESSAGE 


;OCTAL TYPEQUT ROUTINE 
CALL: 









NO=11-D02RI0-4, 
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DZRID.919 


SEG 0107 
ERROR MESSAGE GENERATION ROUTINES 
































3663 MOV NUM, =(SP) sPUT THE NUMBER ON THE STACK 
3654 ; JSR _—s- PC, LINOCT 
ae ; RETURN 

ES op2i72 o1esye on0002 LINOCT: MOV —-.2( SP), -( SP) ;PUT NUMBER_IN PROPER LOCATION ON STACK 
3668 022176 004737 027750 JSR CONVERT THE NUMBER TO OCTEi 
359 Gecete Drees? Oeeel MOV 6s (SP) 4.18 {GET THE ADDRESS OF THE ASCII STRING 
3570 022206 O6e737 OO000S ozeezl6 app. —saS. 18 RODRESS THE LAST & ASCII DIGITS 
3671 022214 104414 DISPLY :TY PE IT 
3672 Oeze1e 00000 1S: WORD 0 ADDRESS 
3673 022220 012616 MOV (SP) +, (SP) ZCORRECT THE STACK 
ger} 0e8282 200207 RTS = PC : RETURN 
378 C~«CS sROUTINE TO CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 
377 s LEADING ZERO SUPRESSION 


3679 : MOV NUM, -(SP) ;PUT THE NUMBER ON THE STACK 
3680 : ISR PC, LINDEC 

3681 : RETURN 

3682 


3683 922224 O16646 900002 LINDEC: MOV g(SP -(SP) :SET UP STACK FOR CONVERT 

3684 22236 904727 927729 JSR $s820 ; CONVERT IT TO DECIMAL 

3685 022234 904737 027320 ISR Be? SSUPRS TYPE IT (WITH LEADING ZEROS SUPRESSED) 

3686 322240 012816 “MOV {SP)+, (SP) RESTORE STACK POINTER 

3587 Q22242 900207 RTS 

Day $y RRREREAAREA REEF RELAEL ERE LE LAL ERE LAEE ER LALA LL RELLELLELELLALELELE 

3621 .SBTTL GENERAL SUPPORT SUSROUTINES --. 


was Sf RRRREAELE AA REL ELE RAAF LET FRATA LARA SLA RALATLALAALALEREPERLLFLALLE a 
3695 sDECREMENT THE SECTOR-TRACK ADDRESS 

3696 ;CALL: 

3697 MOV #DPB, RO ;DPB ADDRESS 

3698 ISR PC, READOR 

3699 ; RETURN 

37 ; (SP) CONTAINS THE TRACK ADDRESS 

3731 : 2(SP) CONTAINS THE SECTOR ADDRESS 

3754 88820 DTESIE. SODDDY REROOR: YC). (SP) ss SROVET TE RTL GOR Dom TME STK CCD 
3705 Oe2es4 O05 iia CLR nese +P YE OF fe ESR SECTO : “a > 
es TERS TEE EE conc fate feepecnn,scsr> "Dhtesent Sct ORO star i 
soe basses ARESEE Sonoda DEC rSRS be REEL FRE SECTOR "AD RESS 

3708 822276 100015 BPL R IE SECTOR GREATER THAN 9 

3719 922300 O1e766 googes 900004 MOV 4 ECTOR ADDRESS TO 21(10) 

S711 022306 116066 000243 600002 MOVB $ PORE TRO, acspi" TRACK ADDRESS 

3712 922314 005366 o0000e2 DEC pee RENENT TRACK ADDRESS 

3713 100007 BPL DIDN'T GO NEG 


3 55 

| 37i4 eee Ol2e766 O0002e 900002 Ay al sBBdt RACK TO 18(10) 
3716 Oe2332 116066 c0Ce43 000002 1S: MOVB SRPDA+1(RO),2(3P) ;TRACK ADDRESS 

I 

L 





MO-11-D2RID-A, 
DZRIO.919 


022349 000207 


010046 


005204 


000004 
052651 
o0004e 
oos2Sé 


OO40E5 
000005 


001442 
022654 


001720 
033236 
022676 


oo 
888 
Ownw~ 
Orury 
ae] oe 
£vro 


1S6SS0 
156540 


oocco4 


156500 


oo0c04 


001442 
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MACY11 27(655) 
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2s: RIS PC ; RETURN 
sROUTINE TO CHECK FOR KWL1-L OR KW11-P CLOCKS 
CKCLK: MOV et, CLKELG ;CLEAR CLOCK AVAILABILITY FLAG 
~~ MOV LOCK :CL 1I-P CLOCK AVAILABILITY FLAG 
MOV scKeLict ERRVEC SET UP VECTOR FOR CLOCK CHECK 
CLR DHERRVEC+2 = NEW Pou 
TST JSLKCSR CHECK F W11-P 
CLR CLKFLG SET KLbee AVAILABIL ITV FLAG 
CLR PCLOCK eet KW11-P CLOCK FLAG 
MOV SLPVEC,RI :KWL1-P VECTOR ADDRESS 
MOV aCLOCK, (RL) iE uP kul I1-P VECTO 
MOV e1eby, 1 SLKCSB *LOAD COUNTER BUFFER WITH 16.67 
HOV force CSR ;SET CLOCK - CNT UP, 10US, CONT INT 
CKCLKL: ADD SP RESTORE THE STACK POINTER 
MOV SCKCLK2, DWERRVEC® « CHANGE ERR OR VECTOR TO CHECK FOR KWL1-L 
TST JSLKS sLOOK FOR KWL1-L 
CLR ;SET CLOCK FLAG 
MOV SLLVEC,R1 KWil-L VECTOR ADDRESS 
MOV #CLOCK: (R1)+ ;SET UP _KWl1-L VECTOR 
MOV #300, (R1) 16 
MOV #100; a$LKS SET KWL1-L INTERRUPT 
BR CKCLK3 
CKCLK2: ADD #4, SP ; RESTORE THE STACK POINTER 
TYPE NEDCLK ;"P OR L CLOCK MUST BE ON SYSTEM” 
qs 42 ‘UNDER RONITOR CONTROL ? 
IMP $GETH2 ABORT PROGRAM 
1S: HALT 
IMP START AGAIN 
CKOLK3: Nov 4G, JERRVEC i oe THE ERROR VECTOR 
b 
: ROUTINE TO DISPLAY STATISTICS FOR ALL DRIVE. ASSIGNED 
: ISR PC, STATPR 
: RETURN 
STATPR: MOV RO,-(SP) SAVE RO 
MOV R4'-(SP) SAVE RY 
TST ASALST sRNY DRIVES ASSIGNED ? 
JSR PC, SHDTYP : TYPE THE HEADING 
CLR RY ‘CLEAR THE DRIVE INDEX 
18: ASL RY :CHANGE TO INDEX WORDS 
HOV BLKADR(RY) ,RO GET THE OR DRIVE'S BLOCK ADDRESS 
B17 ATABIT(RM) ,ASNLSt -1S Tals DRIVE ASSIGNED ? 
JSR PC, SDETAL : TYPE THE PERFORMANCE SUMMARY 
2$: INC RY INCREMENT THE INDEX 





SEQ 0108 





























Sscieiiientinipuioeeiapesnsiinedaeiginaal 


010046 


010246 
010002 
062702 
O10446 
104403 


104401 


022654 


022676 


023400 
027360 


027360 


000036 


052073 
000070 
027720 
027230 


052073 


MACYL1 27(65S) 28-APR-"& 17:04 PAGE 73 


CMP R4, #8. SE INTSHER ? 
BNE 1$ iB if NOT 
3$: MOV (SP)+,R4 ;RESTORE RY 
MOV (SP)+,RO pRESTORE RO 
RTS PC s RETURN 


A tbe TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE 


: MOV #OPB, RO DPB ADDRESS 


: ISR PC, TYPEST 
; RETURN 
TYPEST: MOV RO,-(SP) ;SAVE RO - 
MOV RY, -(SP) “SAVE RY 
ISR PC; SHDTYP :TYPE THE HEADING 
CLR RY :CLEAR R4 FOR DRIVE NUMBER 
MOVB  (RO),R4 DRIVE NUMBER 
JSR Pc, SDETAL “TYPE THE STATISTICS 
MOV (SP)+, 24 :RESTORE RY 
MOV (SP)+,RO -RESTORE RO 
‘RTS pc RETURN : 
s TYPE THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT. 
ate PC, SHDTYP 
: RETURN 
SHOTYP: JSR PC, STIME :TYPE THE TIME OF DAY 
ISR RS’ TYPRI4 :TYPE AT PRIORITY 4 
SCRLF :CR-LF 
JSR RS, TYPRI4Y :TYPE THE HEADER 
STATHD HEADER 
RTS PC RETURN 
; TYPE THE PERFORMANCE SUMMARY DATE LINE 
: "MOV #ORIVE, RY ;DRIVE NUMBER . 
: MOV DPB, RO :DPB ADDRESS - 
: RETURN 
SDETAL: MOV R2,-(SP) :SAVE Re . 
MOV RO'R : DDRESS 
ADD #SOPERC Re :FIRST STATISTICAL FIELD 
MOV RY, -(SP3 :;SAVE RY FOR TYPEOUT 


TYPOS 3;G0_TYPE--OCTAL ASCIT 

-BYTE 2 3; TYPE 2 DIGIT(S) 

BYTE 0 ;, SUPPRESS LEADING ZEROS 

TYPE LINSP ; roe 

MOV $PASSC(RO) ,-(SP? _jPUT THE PASS COUNT ON THE STACK 
JSR PC, $SBeD ;CUNVERT IT 

JSR RS, REPLZ siYPe it 

WORD 3 ; TYPE 3 OIGITS 

TYPE ,LINSP ; SPACE 















Seseié—O04537 
Oese2ze 000004 
023224 104401 
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Bera Bie 032500 
750 027230 


0S2073 


000004 


032500 
027230 


052073 
000004 
032500 
027230 
052073 
009004 
032500 
027230 
052074 


052074 


027720 
027230 


052074 


027720 
027230 


001165 





MACYL1 27(655) 


LINSP : SPACES 
£4, Re s INCREMENT m2 

Re, -(SP) T $TRANS ON THE STACK 
PC; $DB2D CONVERT $TRANS 

RS, REPLZ TYPE I 

. :TYPE 10 DIGITS 

LINSP : SPACES 

#4, Re ‘INCREMENT Re 
R2;-(SP) :PUT $READ ON THE STACK 
PC, $DBeD s CONVERT $READ 
RS? REPLZ : TYPE 

10: , : TYPE tg DIGITS 

LINSPO 31 SPACE 

4, Re : INCREMENT R2 

#2’ Re sINCREMENT Re AGAIN 

(Re)+, -(SP) T $SOFT ON THE STACK 
PC, $58 SONY SOFT 





SEG 0110 
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R ;PUT SOPERC ON THE STACK 
Perspee) §=6= «CONVERT If 

RS; REPLZ TYPE SOPERC 

6 eh Js DIGITS 

, LINSP 3 

#4,Re S INCREMENT _R2 

Re, -(SP) ; PUT 1 $e0siT ON THE STACK 
PC, $0820 CONVERT IT 


TYPE $POSIT 
TYPE 6 DIGITS 














RT $ 
Typed UT ofetrs 








INSPO 
tR2)+. -(SP) BUT SHARD ON THE STACK 
,$582D ‘CONVERT $HARD 
RS‘ REPLZ :TYPEOUT $HARD 






; TYPE 4 DIGITS 
Put $SKI_ON_ THE STACK 
$SKI 










$TOTAL(RO),-(SP)’ ;CALCULATE NUMBER OF OTHER ERRORS 
$SOFT (RO), (SP) .SOSTRACT $SOFT FROM STOTAL 
SHARD(RO)’ (SP) ; SUBTRACT SHARD FROM STOTAL 

KI(RO), (SP) ;SUBTRACT $SKI FROM STOTAL 
SMISPO(RO),(SP) :SUBTRACT SMISPO FROM $TOTAL 
PC, $SB2D ‘CONVERT "OTHER? COUNT 
RS, REPLZ :T T 






TYPE 4 DIGITS 





SCRLF 


NO-11-DZRJD-A, 
DZRID. 019 


73 923230 
023232 


3924 023330 
33e5 923334 
023336 
3327 023344 
3328 023346 

023352 





RPO4/S/6 MULTI-DRIVE EXERCISER MACY11 27(655) 28-APR-76 17:04 PAGE 75 


GENERAL SUPPORT SUBROUTINES 


012602 MOV (SP)+,R2 ;RESTORE Re 
000297 RTS PC 


;ROUTINE TO INCREMENT SSOFT 


NOTE: $SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10) 


005737 001264 INCSOF: TST BADSEC ;SEE IF BAD 3 INDICATOR SET 
DON’T aera 4 af COUNT 


001906 BNE 1$ :BR IF IT’S 
: gD ? on0060 023417 cre SSOFT(RO}, #9999. ail? = SOOT. AtREAbY AT MAXIMUM 
005260 o00060 INC SSOFT(RO) - s INCREMENT $SOFT 
000207 18: RTS PC ; RETURN 


;ROUTINE TO INCREMENT SHARD 


;NOTE: SHARD WILL NOT BE INCREMENTED BEYOND 9999 (10) 


005737 001264 INCHRD: TST BADSEC 7 SEE IF oe TRK/SEC ag Sead SET 
BNE SET, DON’ } eres COUNT 


001006 :BR IF 
026027 oO00062 023417 CMP SHARD(RO), #9999." ;IS stars ALREADY AT MAXIMU 
103092 BHIS 1§ m IF IT IS 
005260 ooont? INC SHARD(RO) s INCREMENT SHARD 
000207 1S: RTS PC : RETURN 
;ROUTINE TO INCREMENT $SKI 
“NOTE: $SKI WILL NOT BE INCREMENTED BEYOND 9999 (10) 
005737 001264 INCSKI: TST BADSEC :SEE IF BAD TRK/SEC INDICATOR SET 
001006 BNE 1$ :BR IF IT’S SET 
026027 O00084 923417 CMP $SKI(RO), #9999. °:IS $SKI ALREADY AT MAXIMU 
103002 BHIS 1§ :BR IF IT 
005260 oo0064 INC $SKI(RO) s INCREMENT $SKI 
000207 18: RTS PC : RETURN 
sROUTINE TO INCREMENT SMISPO 
‘NOTE: $MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10) 
605737 001264 INCMIS: TST BADSEC :SEE IF BAD TRK/SEC. INDICATOR SET 
001006 BNE 1$ :BR IF IT’S SET 
026027 OO006& 023417 CMP SMISPO(RO), #9999. ;IS $MISPO ALREADY AT MAXIMUM * 
103002 BHIS 1S -BR'IF IT IS 
005260 o0006 INC SMISPO(RO) s INCREMENT SMISPC 
000207 1S: RTS PC ; RETURN 


;ROUTINE TO INCREMENT STOTAL 


DON’T ae COUNT 


T INCREMENT COUNT 




























SEQ O111 








DZRJIO. alg 











B 
B 
foruroforone 






















001274 


38 

37 O0lele 
7 O0ie72 
3971 023516 Oee737 000074 


001272 
023532 005237 001372 
023536 001270 
000074 








4 
005037 001270 
37 001c66 
001747 


001266 
000021 
004737 037576 

37 001370 
001411 















001264 
000056 
000056 


023417 


001274 
001272 


001270 


001266 
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STOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCTOT: TST 
BNE 


1$: 


CMP 
BHIS 
INC 
RTS 


BADSEC 


$TOTAL(RO), 49999. 


STOTAL(RO) 
PC 


;ROUTINE TO TYPE THE TIME 


STIME: 


1$: 


TST 


CLKFLG 


SCRLF 
HOUR, -(SP) 
PC, $SB2D 

REPLZ 


COLON 
MINUTE, -(SP) 


PC, $SB2D 
RS; REPLZ 


acConD -(SP) 
PC $ 


SBeD 
RS, *REPLZ 


PC 


;CLOCK HANDLER ROUTINE 


CLOCK: 


1$: 





DEC 


SIXTEE 

HZ, SIXTEE 
SECOND 

460. , SECOND 
SECOND 
INTRVL+2 
MINUTE 
#60. , MINUTE 
MINUTE 

HOUR 
#999. , HOUR 
1$ 

HOUR 

#17. ,-(SP) 
PC, RPTMR 
INTRYL 
2S 





;SEE IF BAD TRK/SEC INDICATOR SET 
SET, DON’T INCREMENT COUNT 
:1S stoTal ALREADY AT MAXIMUM ? 


; INCREMENT STOTAL 


;RETURN 


;CLOCK ON THE SYSTEM ? 
iB IF NOT 


PUT ’HOURS’ ON THE STACK 
Convent TO DECIMAL 


; TYPE é DIGITS 


PUT *MINUTES’ ON THE STACK 
; CONVERT TO DECIMAL 


TY 
; TYPE 2 DIGITS 


PUT SECONDS ON Li STACK 
;CONVERT TO DECIMA 


:TYPE I 
:TYPE 2 DIGITS 


5 CREENT THE 1/69 ope COUNTER 
Bet Ae COUNTED 


: CLEAR THE SECOND’S COUNTER | 
;COUNT THE PERFORMANCE SUMMARY INTERVAL 
;COUNT THE MINUTE 
iBT vere ? 
;CLEAR THE MINUTE’S COUNTER 
s COUNT THE HOURS 

T MAXIMUM 


‘DRIVER TIMER ROUTINE 
sBISTLAY THE PERFORMANCE SUMMARY ? 


SEG O112 


. Hy. 
as 
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MO-11-D2RJO-A, 
DZRJO.919 









































3987 023614 023737 001370 001372 CMP _INTRVL, INTRVL#2 sDISPLAY INTERVAL FINISHED ’ 
agg 953054 B04555 ENE Nor 
3 G OL 177777 001214 MOVs #-1, STATIN iSET PERFORMANCE SUMMARY DISPLAY FLAG 

Gexese 005057 O0197¢ CLR INTRVL#2 LEAR THE PERFORMANCE INTERVAL COUNTER 

3331, Oese 36 2g: RAT x URN 

3993 :COMMAND DECODE ROUTINE 

3994 : CALL: 

33% MOV #1, CFLAG ;*CFLAG’ IS NORMALLY SET BY THE TTY SERVICE 
Ef SROUTINE IN INTERRUPT MODE 

3997 JSR PC, KSR 

3998 RETURNI ;SYSTEM BUSY RETURN 

3339 RETURN? ERETURN AFTER KEYBOARD SERVICED 

4001 023640 005737 001420 KSR: TST — ORDERG SANY OPERATIONS ACTIVE ? 

yoo2 23644 001003 BNE «iS 'BR IF SOME BRE 

4003 053648 005037 023672 CLR 438 SCLEAR THE LOOP COUNTER 

4yO04 53652 000410 a a KSRI PROCESS THE KEYBOARD REQUEST 

4005 023654 062737 C0000! 023672 18: ADD 41,38 SCOUNT THE TIMES THROUGH THE LOOP 

yoo OS3¢62 O01002 - BNE 28 BR IF_NOT ENOUGH 

4007 O236649 104401 953236 ; TYPE “BUSY SYSTEM BUSY.. 

4ypos 23676 000207 23: RTS } PROCESS ANY COMPLETED DRIVES 

4up08 023672 O00000 3$: WORD O ‘LOOP C 

yol0 O23674 104412 KSR1:  SAVREG SSAVE THE REGISTERS 

4011 023676 012737 900200 177776 HOV #PRY.PS tSET PRIORITY 10 4 

yO12 053704 005037 01262 CLR CFLAGS ‘CLEAR THE CONTROL” FLAG 

Bye Be ee a OL ae 

upie Osace0 fouda, GESSee TYPE  SENTCOM t TERTER COMMANDS: 

uO1e 023724 104411 RDLIN -READ. THE KEYBOARD 

W017? 923726 012605 MOV (SP)4, RS 'GET ADDRESS OF INPUT STRING 

4uo18 053730 006737 OD1262 TST —-CFLAG {CHECK THE CONTROL C FLAG 

4019 023734 001085 BNE so7 TEXIT IF 'CONTROL C’ ENTERED 

4uo20 053736 o0s205 INC RE SBOINT TO SECOND CHARACTER 

4021 023740 122715 0010! CMPB «8? A, (RS) iE 19 a 

4053 Goseue Setee> goo0E? Bree ~SstRS).a°7 Rue A it Is, GREATER THAN AN ASCII 7 

dose Geaccs TRIBE, Te be i aye 

4025 023754 121527 OD00S0 CMPB. (RS), #°O tORIVE TIMBER LESS THAN AN ASCII 0? 

Woe 923760 193451 BLO IT 1S 

40 3762 143718 177770 BICB -#tC7, (RS) STEAVE ONLY LOWER 3 BITS IF CHAR NOT 'A” 

4uos8 23766 122768 OO0124 177777 18: CMP #’T,21(R5) fEQ TOT? 

4029 053774 001003 BNE 2S '5R IF NOT EQ 

4030 023776 004737 o24S02 JSR - PC, NEWASN SASSIGN DRIVE FOR TEST 

4031 Oeuo02 ooo44e BR 7g EXIT 

4032 O24005 122766 O00104 177777 28:  CMPB  #D,-1(RS) f60 TO "2 

4033 Oe4Ol2 001003 BNE «38 '6R IF NOT EQ 

4034 054014 004727 O24si2 JSR PC, DEASGN :DEASSIGN DRIVE 

4935 e429 900433 BR PENT 

4036 O54032 122765 000123 177777 2S: CHPB  #°S,-1(RS) fEQ TO *s? 

4037 924030 001003 BNE 4 'BR IF NOT EQ 

4038 054032 904737 o24620 JSR PC, SCMND iTYPE STATISTICS 

403@ 054036 of04a4 BR 7§ PEXIT 

uo4d OS4040 122765 ooD127 177777 #°,-1(RS) feQ TO *W 








MND-11-DZ2RJD-A, RPOW/S/6 MULTI-DRIVE EXERCISER 


DZRJO.019 GENERAL 

1 O24 001007 
4042 QO240S0 032777 
4043 024056 001012 
4O44 024060 00473 
4O4S 924064 000411 
4046 O24 122765 
4047 Oe4Gr’ 001003 
done 40 004737 
404 41 D004 
050 104401 


SUPPORT SUBROUTINES 


000001 
025070 
000122 
025102 
052727 
000002 


177776 


000101 


052147 
000001 
033236 


052233 
000011 


024276 
026346 


000011 
000001 
000007 
000010 
024276 
024266 
024260 
024414 
033236 
033234 
O44E4E 


015174 
033122 


155062 


177777 


155014 


026366 
001442 


026366 
090041 


000041 


001442 


BNE S$ ;BR IF_NOT EQ 
BIT #SWO, JSWR ‘IS SWITCH O SET ? 
BNE 6$ -BR IF SET CANT T a "WI COMMAND 
JSR PC, DATAPK ‘WRITE A DATA P 
BR 7§ EXIT 
cs: CMPB) ss &#’R, -1 (RS) 7EQ TO ’R’ ? 
SNE 6$ :BR IF NOT EQ 
ISR PC, REDAPK :nte A DATA PACK 
6S: TYPE  ,INVLD :TYPE *INVALID COMMAND’ MESSAGE 
7$: RESREG *REST weer 
ADD #2, (SP) ; INCRE THE RETURN ADDRESS 
TST - agstkB : CLEAR SHE TTY BUFFER 
BIS #BITO6,a$TKS § SET TTY INTERRUPT ENABLE 
CLR PS :SET PRIORITY BACK TO ZERO 
RTS PC : RETURN 
;ROUTINE TO PROCESS THE ASSIGN REQUEST (’T’, ’R’, OR °W’ COMMANDS) 
ASSIGN: CMPB -—_#"A, (RS) sASSIGN ALL DRIVES? 
EQ AsGNe -BR IF ALL DRIVES 
ASGN1: MOVB  (RS).R4Y “PUT DRIVE # IN RY 
MOV #UNTASN,ASNMSG :’DRIVE ASSIGNED’ MESSAGE ADDRESS 
MOV #1,R3 "RELOAD R3 FOR 1 UNIT 
BITB AIABITCRY), asnist sORIVE ALREADY ASSIGNED ? 
Ist Fi ; TRYING TO ASSIGN DRIVE 0 ? 
MOV #NOTAVL , ASNMSG NOT AVAILABLE’ MESSAGE ADDRESS 
CMPB «#11, 41 ;SEE IF LOADED FROM AN RPO/4/S76 
BEQ *BR IF RPOW/S/6 IS THE LOAD DEVICE 
1$: JSR PC, ASGN3 :SEE IF DRIVE ON THE 
25: INP BSAERR ern HERE IF DRIVE Not AVAIL 
ASGN2: CMPB 411,41 sLOADED FROM AN RPOW/S/E * 
BNE 1$ :BR IF NOT 
MOV #1,R4 :START WITH DRIVE 1 
MOV #7: ,R3 ;SET UP FOR ONLY 7 DRIVES 
BR 2s NTINU 
1S: CLR :START WITH DRIVE O 
MOV #8. ,R3 :DRIVE COUNT FOR 8 DRIVES 
23: JSR PC, ASGN3 “ASSIGN ALL UNASSIGNED, AVAIL DRIVES 
3$: HP 4s ;DR IVE NOT ON SYSTEM 
4§: MOV #3$,-(SP) BUT RETURN ADDRESS ON THE STACK 
JMP 4 ‘LOOK FOR MORE DRIVES 
ASGN3: BITB BIABIT(RA), ,ASNLST :DRIVE ALREADY ASSIGNED ? 
13: TST DTUW ;DATA TRANSFER UNDER WAY ? 
BPL 1$ qr IS 
MOVB §_R4, GENDPB ORI VE NUMBER 
JSR PC’ RECALO j RECAL IGRATE DRIVE 
TSTB — DRVSTACRY) ‘DRIVE AVAILA 
SGN? -BR IF DRIVE BEEL INE OR NONEXISTENT 
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RPO4/S/6 MULTI-DRIVE EXERCISER 
GENERAL SUPPORT SUBROUTINES 
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MD-11-DoRJO-A, 
DZRJD.919 











4039S 024332 100437 BMI ASGNG BR IF Ft UNSAFE 
1038 4338 6304 ASL RY RY OENTO 0 WORD INDEX 

409 y 16464 001720 OO1466 MOV BLKADR (RY, NENT CRS : OP 

4yo9s 024344 016400 001720 MOV BLKADR(R4) RO BLock’ e OBR INTO RO 

4yo99 924250 004737 025114 JSR , CLROP AU EAR BLOCK FOR DRIVE JUST ASSIGNED 
4100 024354 004737 025310 JSR PC, ORVPRM ‘GET THE DRIVE’S ADDRESS LIMITS 
















































4101 24360 004737 025572 JSR PC, GETID :GET DRIVE 1.0. 
4102 24364 004737 025702 JSR PC, GETADR 7GET BAD SECTOR ADDRESSES 
4103 024370 012760 00000] ocoo070 MOV WI; SPASSC(RO) ©; PRESET PASS COUNT TO 1 
4104 24376 9005737 O01216 TST —- PACK SWRITE DATA PACK 
4105 e442 O01403 BEQ = BS :BR_IF_NOT 
4106 Oe44O4 113760 O01216 o00026 MOVB © PACK,SPACK(RO) SET READ/WRITE DATA PACK INDICATOR 
4107 Oe44i2 005204 2$: ASR RY ~ RESTORE DRIVE ADDRESS 
4108 24414 005303 ASGNY: DEC 3 DECREMENT DRIVE COUNT 
4109 Oe4416 001402 BEO © ASGNS - BR IF FIN 
4110 Oe4420 905204 ' INC RY SINCREMENT DRIVE NUMBER 
4111 Oe44e2 000725 BR ASGN3 ONTINUE 
4112 Oey4e4 062716 o00004 ASGNS: ADD —_#4, (SP) STNCREMENT RETURN 
4113 024430 000207 RTS PC ; RETURN 
4114 ev¥32 Qle737 O52252 026366 ASGNE: MOV — #NOTSAF,ASNMSG ;’UNSAFE’ MESSAGE ADDRESS 
4115 Oe4440 000207 RTS 
4116 Oev44e 105764 033132 ASGN?: TSTB  DRVTYPCR4)  :DRIVE PRESENT? 
4117 .Oe4446 001405 BEQs«1S ;BR IF NOT 
4118 De44s0 100010 BPL aS ;BR IF DRIVE OFFLINE 
4119 O24452 012737 052175 026366 MOV - SNOTRP, ASNMSG ; ADDRESS OF "NOT RPO4/S/6" MSG 
4120 Oe4466 000407 BR 
—qIS1 QB4u4e2 Die737 052215 026266 18: MOV ENOTPRS,ASNNSG ADDRESS OF "NOT PRESENT’ MSG 
4Yle2 24470 00402 BR 3$ sEXIT 
4123 O24472 012737 OS2104 026366 25: MOV | BUNTOFF,ASNMSG ADDRESS OF "DRIVE OFFLINE’ MESSAGE 
4ie4 Oe4s00 000207 35: RTS PC ;ERROR RETURN 
4126 ;’T? COMMAND (ROUTINE TO ASSIGN A DRIVE) 








4127 
4128 Oe4S0e 005037 001216 NEWASN: CLR PACK ;CLEAR *W’ COMMAND INDICATOR 
uiS3 Oe4508 000137 024136 JMP ASSIGN GO TO THE ASSIGN ROUTINE 








4131 ;’D’ COMMAND (ROUTINE TO DEASSIGN A DRIVE) 


4133 QOe4Si2 O05004 DEASGN: CLR RY 
4134 024514 122715 000101 CMPB #°A, (RS) fF a ALL DRIVES ? 


















- 4135 024520 001434 BEQ 5$ ;BR_IF Y 
4136 Oe4See Ol2703 000001 MOV #BITOO,R3 _ #SET R3 FOR ONE UNIT 
4137 O2452e6 111504 MOVB (RS) i? DRIVE NUMBER 
4138 024530 136437 033236 OOl44e 15: BITB ATABIT(RY) ,ASNLST ;DRIVE ASSIGNED ? 
4139: 924536 001414 BEQ 3 
4140 O24S4O 146437 033236 001442 BICB a eel asnst ;DELETE THE DRIVE FROM THE ASSIGNED LIST 
4141 O2e4S46 006304 ASL R INTO A WORD INDEX 
4142 O2e4550 O16464 001720 OO1L444 MOV BLKADR(R4) , puniTiR) ;PUT ADDRESS IN DEASSIGN LIST 
4143 024556 006204 ASR RY 
4144 O24S560 005303 es: DEC R3 ;ANY MORE DRIVES ? 
;BR IF NOT 













1$ 
#°A, (RS) 





4148 024570 122715 O00101 





;DEASSIGN ALL DRIVES ? 





MD-11-D2RJD-A, RPO4/S/’6 MULTI-DRIVE EXERCISER 


DZRJD.019 


4 Oe47Se 104401 
4187 4756 104401 
4188 Oe4762 012737 
4189 4770 905004 
4190 772 012703 
4191 024776 136437 
4192 S004 001417 
ia S006 9 O10446 
4195 025010 104403 

196 002 


000019 


000101 
035236 
001720 
022626 
052125 


026346 


000010 
033236 


022544 


001220 
053127 
001220 
001232 


053140 


2 
042032 


000010 
033236 


052071 
000012 


053205 


GENERAL SUPPORT SUBROUTINES 


SEE 


026366 


S$: 
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SCMND:. CLR 
CMPB 


2$ 
sna ASNMSG ROE fe hoT ASSIGNED’ MESSAGE 
ASNERR "REPORT IT 
8. ,R3 ;SET UNIT COUNT TO 8 
;°S’ COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY? 
RY 
#’A, (RS) ;ALL STATISTICS ? 
es. iBR 


001442 


026366 158: 


2s: 
oo144e 35: 


4$: 


118: 


12S: 


025036 


oo144e S$: 


T DRIVE NUMBER 
iPee IF RIVE ASSIGNED 


RY MAKE DRIVE ADDR INTO WORD INDEX 
BLKADR(RY),RO ADDR 

PC, TYPEST at DRIVE STATISTICS 

ADDR OF *NOT ASSIGNED’ MSG 


aTaGLT (RM), asnist 


#UNTNOT, ASNMSG 

PC, ASNERR ; TYPE ERROR MESSAGE 
SDRIVE COUNT 

ATARIY (RA), asnist van sSEE IF DRIVE ASSIGNED 
a “INCREMENT DRIVE ADDRESS 
R3 ‘DECREMENT COUNTER 
3$ :MORE TO CHECK 
9$ “NONE ASSINGED, RETURN 
PC, STATPR :TYPE ALL STATISTICS 

- “pate *SEE IF ‘DATE’ ENTERED 
11$ ;BR IF NOT 

,DATEIS ; DATE: , 

DATE *THE OPERATOR ENTERED DATE 
SPERID ; SEE IF OPERATOR I.D. ENTERED 
12$ F NOT 
,IDIS OPERATOR I.D.: ° 
, OPERIO THE OPERATOR I.D. 

HEDLIN *HEADER LINE 
iDRIVEDSsoRVI0, 6$ DRIVE I.D. FIELD ADDRESS 
sR VE ADDRESS 


N 
Fallow aonst SEE IF DRIVE ASSIGNED 


: NOT ASSIGNE 
RY, -(SP) : SAVE RY FOR TYPEOUT 
ii TYPE DRIVE NUMBE 
:GO TYPE--OCTAL ASCII 
;; TYPE 2 DIGIT(S) 
SUPPRESS LEADING ZEROS 
LINYSP SPACE 
d6S CEE IF DRIVE I.D. ENTERED 
10$ ‘BR IF DRIVE 1.0. PRESENT 
NONE TYPE *NONE’ 
A CONTINUE 






















SEQ 0116 





5 


i 
ae 
- 


co oe oe 
ufutututure % 
Tot bt 


Po 5 
‘Bw 


wurut 


Po 


MUTT eTerUrerere 


tutu 


Plus eoepem ~serun a eohuee 


SELLA CL SS 


furor 


RHORORRD 
BN TERE BAROLO 


| RREBRRBB 
. for 


ren 


10440) 


 petetetes 


012703 
005024 


6 MULTI- 
NERAL SUPPOR 


001165 


009304 


091165 


000002 
ococos 


0092 
0070 


000052 


000014 
00C 162 


0000Ce 
002414 


BB 





MACY12 27(63S) 


0 
$CRLF 


s$ 
s$RPEC2+2 68 
RY 


c$ 
$CRLF 
pc 


W’ COMMAND (ROUTINE TO WRITE A DATA PACK) 


;SET THE “W’ COMMAND INCICATOR 
JASSIGN REQUESTED ORIVE 


8-1, PACK 
assicn 


;°R’ COMMAND (ROUTINE TO READ A DATA PACK) 


sSET THE "READ* INO: ld 
;ASSIGN THE REQUESTED 


cade TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 


1, PACK 
beeion. 


#OPB £0 
PC, .LRDPS 


R3,-( SP) 


82,R3 
25 


“ nSRECE-MINSEC, A 


Sy Pe 


BEGCOD, $coDE(RO)’ 


3 "Ri 

COMTBLIR1).$ 

BEGPAT 
TTC{RO) 


$FA 
BE csTS, SHROL (RO) 


E DRIVE 1.0. 
ie “1 SS OF DRIVE 1.0. 
BERET The COUNTER 
T_END 


SPNCREMENT THE MESSAGE FIELD ADDR 
¢ INCREMENT DRIVE ACORESS 


SS_PAST 
pt OF LOCNS TO BE iMEaRes” 
Een ge M3 Fen COUNTER 


‘MOV 4 PAST apORESS LIMITS 
LOCNS TO BE CLEARED 


AL N 

MENT THE COUNTER 

i DONE 
:INITIAL COMMAND CODE 
ACTUAL OF CODE 
then coDe CODE 
cok VERT CODE TQ A TABLE INDEX 
;BEGINNING RECORD SIZE 


#2, RY 
8SNEXT-$REG, RB 
(RY) 4+ 


 SbattcoRD) 











ate hee ID-A, wiv & MULTI-DRIVE EXERCI 

DzR Bal SUPPORT SUBROUTINE 
m4 OeS2e4e2 pha7e8 Bosch 000004 my 
~ Reesey le? 3B 400 000022 iG 
4250 peesss 1327 0001 o00024 ITs 
4261 14 EQ 
4262 O2eS272 OS27E0 000004 o000ze2 0D 
4263 4$; 
4264 Oe 012695 MOV 
4265 O02eS302 Qiesd4 MOV 
4265 O25 1e$03 MOV 
M14 02530& 000207 RTS 
use? s;ROUTINE TO GET 
ei 
4271 19 010346 DRVPRM: MOV 
4272 OeS3le C1LO446 MOV 
4273 025314 005737 OCOO4e TST 
$274 025320 001035 SNE 
4275 O2S53ee 104401 053023 TYPE 
4275 025326 atk 
m4 025330 O1044S MOV 
4279 025332 104403 TYPOS 
4280 925334 Ot2 BYTE 
428i 925335 900 .BYT 
4282 025336 104401 CS3514 rs TYPE 
4283 OeS34e Ole? OS230e O2s+0é MOV 
4284 132764 000001 O32132 SITS 
4285 025356 001012 BNE 
4e86 025360 612737 oOS2307 oces4o6 MOV 
4287 132764 0000 023132 BITB 
4288 025374 001003 BNE 
4289 025376 912737 052314 d2S406 MOV 
$290 025404 10440 1$ TYPE 
4291 QeS4 0009 es . WORD 
4eSe O2eS410 10440) O01365 TYPE 
4253 025414 012737 O& 001350 3 MOV 
4294 O2S4e2 132764 033132 BSITB 
4255 025430 001403 BEO 
4296 OeS4se Ole737 001456 001350 MOV 
4237 GeS440 062760 1777 O00le2e 4§ ADD 
4298 Oec446 103417 8¢S 
#299 Oe545C0 013780 001350 000106 MOV 
4300 OeS4S6 005069 000110 CLR 
4301 925 013760 001346 O001l2 MOV 
430e 25470 O05060 900114 CLR 
4303 925474 013760 O01344 OO0116 MOV 
4304 925 00 000125 CLR 
#305 O25506 06304 ss: ASL 
4306 025510 016403 053674 _ MOV 
4307 025514 013763 901350 900002 MOV 
4308 OeSs 013763 001350 900010 MOY 
4308 025530 005737 O0004e TST 
4310 Oe5534 001002 BNE 


BEGSIZ, SWROM(RO) 
$WROM (RO) : MAK 
#256. $5SEC(RO) 


#1, SCODE 
4g" 


84, $SSEC(RO) 


(SP)+, R85 
(SP)¢, "Ry 
ix), R3 
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when ys 508 FOR opate TRANSFER 


Be COMPLEMENT 
INTIAL L_VALUE 8 F SECTOR SIZE 


ADD HEADER SIZE TO SECTOR SIZE 


;3POP STACK INTO RS 
5.4 STACK INTO RY 
‘AES -— INTO R3 


ADDRESS LIMITS FROM THE OPERATOR 


R3,-(SP) 
R4Y,-<(SP) 
42 


3$ 
ENTLMT 
RY 
RY, -(SP) 
2 
0 

ASH 


8PPO4S 2S 
881790" DRVTYP(RAS 


sorrel Sey TyP: Ra) 


2 8 
tee UNDER MONITOR CONTROL 
: "ENTER ADDRESSES’ 

:CONVERT INDEX TO DRIVE NUMSER 
Hie: RY FOR TYPEOU 

: FYPESCTAL ASCIT 

oe 2 DIGITS) 

ij SUPFRESS CEADING ZEROS 

; ADDRESS OF *RPON’ MESSAGE 


RPOW ? 
;BR IF YES 
jnorree ° OF *RPOS’ MESSAGE 


1 
SPOS, 2S + RDORESS OF 'RPO&’ MESSAGE 

i TYPE THE MESSAGE WHICH FOLLOWS 
0 ;MESSAGE ADDRESS 
SCRLF :CR- LF 
bal ASSUME AN RPON/S 
agit Faas Coe cra} SEE IF R POG 


sa NEF IRST CRO) 


EYLIMT. MAXCYL(RO! 
NCYLERO) 
TRKLNT REXTRKCROS 


RK ERO 


Sect Resec( RO} 
:CLEAR MINIMUM SECTOR 


SECTRO 
Ra 
TABLE (RY 
CYLIMT,2 
CYLIMT, 1 
42 
6$ 


a 


roan ¢ 
SUNDER MONITOR CONTROL? 
BR IF YES 


° 
’ 


) 
( 
OK 





CHANGE LIMIT TO 814 
:SEE IF EiRst TIME STARTED 
-LOAD MAXIMUM CYLINDER 
CLEAR M MINIMUM CYLINOER 
XIMUM TRACK 
NIMUM TRACK 
LOAD MAXIMUM SECTOR 


IMI 
INDER LIMIT FOR 





ADDRESS 
T FOR LAST CYLINOER 
STARTING CYLINDER 





00D ~ 30" U1 Uf 


furorge 


UO 


R°O4 S/6 MULTI-DRIVE EXERCISER 


GENERAL SUPPORT SUBROUTINES 


TE BE wee oO 


Gare 2 
a OSRe 


88 
fo 
Ne 


Coe &— »- + 
ee ee oe ee ed 


0 
104401 
012703 


114 


110 


ocoo42 
001262 
0S2776 


000042 
001262 
053064 


00115 
000040 


2s: 


ROUTINE TO GET 
GETID: WOv 


1$: CLR 


RTS 


s;ROUTINE TO GET 
GETADR: 


14S: CLR 


MACYL1 27(655) 
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MEASE TROD, sseccags sINIYIAL SECTOR VELGE TERS 


f NTRK(RO) , STRK(RO) ign tat Cy TR 

rf ser, }? sia b AL CYL NOE VALUE 
Ps) = iclare R3 

PC ; RETURN 


THE ORIVE 1.0. Fron THE OPERATOR 


RS. ~(SP) :SAVE RS 
“Ee ; UNDER MONITOR CONTROL ? 
CFLAG CLEAR THE "CONTROL C’ FLAG 
vERTORY EN TER DRV .0.: 
?CLEAR THE STACK 
(RO), SP; sPUT THE ORIVE NUMBER ON THE STACK 
i DRIVE NUMSER 
2 $TYPE 2 5161 ee 
0 ; SUPRESS- LEADING ZEROS 
SCRLF :OR-LF 
READ THE ENTRY 
(SP)+,RS5 ;GET THE ENTRY ADDRESS 
CFLAG CONTROL C’ ENTERED ” 
1$ ‘of IF IT WAS 
(RS) a". ; PERIOD ENTERED ? 
23 IF YES 
(RS)+ + SDRVIDIRG) :STORE THE I.0. 
(RE )+, SORVID+1(RO)° ;STORE THE I.D. 
(RS) 3 EbRvibss (RO) :STORE THE 1.0. 
(RE)+°§DRVIN+3(RO) STORE THE 1.0. 
(R5)+.$DRVID+4(RO) :STORE THE I.0. 
(RS )+, SORVID+S(RO) :STORE THE I.D. 
(SP)+, 85 sRESTORE RS 
pC ‘RETURN 


Ri,-(SP) s;PUS4 RL ON STACK 
Re. -(5P) ::PUSH Re ON STACK 
R3,-(SP) ; ;PUSH R3 oN STACK 
R4Y,-(SP) 73PU N STACK 
42 : UNDER NONS TOR CONTROL ? 
15$ :BR IF YES 
CFLAG :CLEAR ‘CONTROL C’ FLAG 
,ENTAOR “ENTER SECTOR ADDRESSCS 
~(SP) ; CLEAR THE STAC 
(RO), (SP) spur THE DRIVE NUMBER ON THE STACK 
:TYPE THE DRIVE NUMBER 
2 ‘TYPE 2 DIGITS 
mr s SUPRESS LEADING ZEROS 
832.3 :NUMBER OF LOCATIONS IN THE TABLE TO PRESET 





MO-11-DIRIO-A, 
D2RIO. 919 


4416 026160 

be 
i 
i 


ee eee a 


R°O4/S/6 MULTI-DRIVE EXERCISER 
GENERAL SUPPORT SUBROUTINES 


Hateteteteteteet 
ora 


© 
Gro 
Paar ieeeia 


062704 
000706 


000124 
177777 


000042 
900190 
009020 
001262 


001350 
Oe7Ste2 


001346 
G27562 


000003 
003003 


oo000e 
oc0002 


000004 


1$: 


2s: 


7$: 
8$: 


MACYLL 27/655) 
MOV SBOSEC, RY 
ADD RO 

MOV a (RW 
DEC R3 

BNE tg 

TST 42 

SNE 13 

Sus #64, RY 
MOV #16. .R3 
ROLIN 

MOV (SP)+,R1 
TST LAG 
SNE 14§ 

MOV CYLIMT, R2 
JSR RS, CK.HIG 
12 

133 

123 

4g 

S$ 

35 

MOV R2, (RY) 
BR 13 

MOV RE, (RY) 
3R $ 

MOV Re. (R4) 
MOV TRELNT Be 
JSR RS, CK. OIG 
12$ 

133 

12$ 

7g 

93 

63 

MOVB —s- R2, 3(R4) 
BR 1 

MOVE  R2, 3(R4) 
BR i1¢ 

MOVB  R2,3(R4) 
MOV SeCLMT R2 
JSR Ck.BIG 
12$ 

13 

123 

10$ 

12$ 

95 

MOVB  R2,2(R4) 
BR 136 

MOVB R2,2(R4) 
DEC R3 

BEQ 13$ 

ADD 84,R4 

BR os 
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; TABLE INCREMENT 
;BLO CK aon ADDRESS 


SIZE COUNT 
“NOT FIN sy on T9BLE 
p erm co 


‘ POINTER TO BEGINNING OF TASLE 
ER OF ADDRESSES IN TABLE 

get AOD ate FROM OPERATOR 

i TEONTROL es ENTERED ” 

:BR I 


; ILLEGAL 

TERMINATED WITH A CARRIAGE RETURN 
TERMINATED WITH A “,” 

; TERMINATED WITH A “.” 


:CYLINDER ADDRESS 

sEXIT, PERIOD ENTERED 
;CYLINDER ADDRESS 

; FINISHED De quis ADDRESS, 


: CYLINDER 
:UPPER LIMIT OF Ye 
iC THE 


HECK DIGIT(S 
:CARRI RETURN BNLY ENTERED 
PERIOD ONLY ENTER ED 

GAL_ INP 


tIL UT 
;TERMINATED WITH A CARRIAGE RETURN 
:TERMINATED WITH A ™ 
: TERMINATED WITH A". 

TRACK ADDRES 

EXIT, ENTRY TERMINATED BY PERIOD 

TRACK ADDRESS 

FINISHED WITH THIS ADDRESS, ‘CR’ ENTERED 
> TRACK ADDRESS 

: UPPER LINIT OF INPUT 
“CHECK THE D 


IGIT(S) 
; CARRIAGE SS eee mY ENTERED 
PERIOD ONLY gNT 


ILLEGAL INPUT 
: TERMINATED WITH A CARRIAGE RETURN 
: TERMINATED WITH A“, 
: TERMINATED WITH A "." 
SECTOR ADDRESS 

sEXIT, ENTRY TERMINATED BY PERIOD 
‘EECTOR ROORESS 

*MORE ENTRIES ? 


:BR IF NOT 
s INCREMENT THE TABLE POINTER 
: CONTINUE 


*CR’ ENTERED 






SES 9120 





aioe 


026170 
026174 


0=e6206 
026219 
026210 
Oebele 
026214 
02 


6216 
S220 


eT 


005 
oe 


40 000733 
: 005726 


000207 


001262 
C26240 


053514 


001262 
027562 


053214 


o00006 


001262 


RPOY/S/“G MULTI-DRIVE EXERCISER 
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1 77777 


\7777? 000002 
053214 


12s: 


138: 


PORENT: 
.¢ 


S$: 
6S: 


7$: 
8$: 


98: 
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#-1, (RY) 
#-1,2(R4) 


BADENT 


2g 


;PARAMETER ENTRY ROUTINE 
CALL 


#ADR,R3 
PC, PARENT 


anon 


(SP)+,R1 


CFLAG 


RS,CK.DIG 


Re, (RS) 


$ 
BADENT . 


6 RS 


1$ ; 
R2, (RS) 


CFLAG 
(SP) ,R3 


(SP)+ 
PC 


sTYPEOUT ASSIGN/DEASSIGN ERROR MESSAGE 
#MESADR, ASNMSG 
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;CLEAR PRESENT TABLE ENTRY 
;CLEAR PRESENT TABLE ENTRY 
si ALID ENTRY’ 


fis. STACK INTO RY 
;;POP STACK INTO R3 
;;POP STACK INTO Re 
RETURN STACK INTO R1 


;PARAMETER TABLE ADDRESS 
GET THE PARAMETERS 


;SAVE THE PARAMETER ieLE ADDRESS 
:CLEAR THE *CONTROL C’ FLAG 
;ADDRESS OF PARAMETER NAME 
:BR_IF_AT END OF Mae 
TYPE THE PARAMETER NAME 

ADDRESS OF wat Ma NAME TEXT 

; METER VALUE 


Vv PARAMETER 
TYPE, THE CURRENT VALUE OF THE PARAMETER 


{READ THE KEYBOARD 
SINPUT ASCIT STRING ADDRESS 

; "CONTROL C’ ENTERED ? 

:BR IF IT WAS 

:CHECK THE DIGIT(S) 

:CARRIAGE RETURN ONLY ENTERED 
;PERIOD ONLY ENTERED 
SILLEGAL_INPUT i 
TERMINATED HITH A CARRIAGE RETURN 
;TERMINATED WITH A“, 


; TERMINAT ED WIT H poe 
; MOVE 


NEW yn TO PARAMETER LOCATION 
557 NORE Pa AMETERS 
sDECREREN THE TABLE POINTER 
NEW VALUE 


x] 
CLEAR THE *CONTROL C*_FLAG 
; RELOAQ THE PARAMETER TABLE ADDRESS 


AGAIN 
i ORRECT THE STACK POINTER 
; RETURN 


;ERROR MESSAGE ADDRESS . 
















- 
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; it 
; RETU 


104401 052725 ASNERR: TYPE 
104401 052075 ; TYPE 
010446 ; MOV 
it BYTE 
104401 _ ive 
900500 ASNMSG: .WORD 
104401 OO01165 TYPE 
000207 RTS 
;DEASSIGN DRIVE 
. Js 
005004 DROP: CLR 
111004 MOVB 
146437 033236 o01442 BICB 
006304 ASL 
O10064 OO1444 MOV 
104401 OO11E5 TYPE 
104401 001165 TYPE 
104401 0652500 TYPE 
104401 952611 TYPE 
006204 ASR 
010446 MOV 
104403 TYPOS 
oo2 .BYTE 
000 BYTE 
104401 001165 TYPE 
000207 RTS 


;ROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE 


;ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 


032777 000020 152456 ABNRML: BIT 
001006 BNE 
3760 001366 000056 CMP 
103002 BHIS 
000137 026376 JMP 
000207 1$: RTS 
005737 001410 EOP: TST 
00141 BEQ 
026037 O000S4 001354 CMP 
101017 BHI 
103405 BLO 
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PC, ASNERR 







, QUES ; QUESTION MARK 
" UNTMSG ;TYPE "DRIVE? 
RY, -( SP) SAVE RY FOR TYP ie, 
isTYP DRIVE NUMB 
T 


: TYPE CSeCIFT C MESSAG 
:MESSAGE ADDRESS 






O SCRLF 
Pc 


IF A FATAL ERROR OCCURS 
PC , DROF 








PM ;CLEAR R4 FOR DRIVE NUMBER 
MOVE DRIVE NUMBER TO 

araattcR4), aSNLSt REMOVE DRIVE FROM ASSIGNED LIST 
'MAKE DRIVE NUMBER INTO A THELE’ INDEX 

RO,DUNIT(R4) § ;PUT ‘DRIVE IN DROP LIST 










SCRLF 

"SCRLF 

* DROPNG ; TYPE * DROPPING DRIVE’ 
DRNUM ORT ve 

4 ORLY MBER 

RY, -(SP) : SAVE Ry FOR TYPEQUT 






e i TYPE é DIGIT(S) 
0 ;; SUPPRESS LEADING ZEROS 
SCRLF 


pc 








#SWO4, JSWR 








; SEE IF SWITCH 4 SET 
P IT’S Ser 






MAXER,STOTAL(RO)’ ;CHECK TOTAL ERROR VALUE 
1$ ;BR IF ERRORS DONOT EXCEED MAX 
DROP ;DERSSING THE DRIVE 






sort ;END OF roe DETERMINED BY SEEKS OR WORDS ” 
SREAD+2(RO), ENDCON+2 CHECK MEW OF WORDS READ COUNT 

EOPe ;BR IF MSW GREATER THAN LIMIT 

EOP :BR IF MSW LESS THAN CNET 
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013746 
104403 
002 


C1374€ 


009207 


0000S2 001352 


000044 001360 


000042 
001165 
052534 
000070 
001246 
000020 
000076 
052550 
052611 
001246 


001165 


052611 
001246 


001165 
022626 


000036 
000010 


000070 
001165 


033236 
001444 


001356 


i$2332 
001362 


EOP1: 


EOP: 


1$: 


- 28: 


001442 


3$: 


EOPX: 








SEQ 0123 
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Lh, pemenagnoeal ;CH HECK Lae Aerie! Att 


EOPX 
$POSIT+2(RO), EnDSeK+2 i CHECK MSW OF uaeek COUNT 
BHI EoP2 BR IF MSW IT 

















BLO EOPX T IF nse LESS Ta hi T 
CMP SPOSIT(RO), ENoSER™” TT eeK SW OF SEEK COU 
BLO EOPX sEXxtT IF LSiW LESS THAN LIMIT 
TYPE + SCRLE :CR-LF 
TYPE ENDPAS END OF PASS FOR THE ORIVE 
MOV $PASSC(RO) -(SP)’ PUT PASS COUNT ON THE STACK 
TYPDS sCONVERT PASS BOUNS TO DECIMAL AND TYPE IT 
MOVB (RO). UNIT ‘STORE THE DRIVE NUMBER 
BIT #SWO4, ISWR ; SW ITCH 4 SET ? 
BNE 1$ SET 
CHP SEASSC(RO) ,Pascnt sSEE IF AT END OF TEST 
TYPE sENDTST ; TYPE "END OF TEST’ 
TYPE RNUM "DRIVE #° 
MOV iNT -(SP) + SAVE UNIT FOR TYPEOUT 

$3 TYPE DRIVE NUMBE 
TYPOS :3GO TYPE--OCTAL ASCII 
-BYTE 2 }31YPE 2 DIGIT(S) 
"BYTE OO ; {SUPPRESS LEADING ZEROS 
TYPE SCRLF LF 
BR ‘DEASSIGN THE DRIVE 
TYPE DRNUM DRIVE #° 
MOV UNIT, -(SP) : SAVE UNIT FOR TYPEOUT 

ii TYPE DRIVE N 












BYTE @ 3 TYPE 2 DIGIT(S) 

ine" 3 ,QUPPRESS LEADING ZEROS 

JSR Bee TYBEST TYPE THE DRIVE’S STATISTICS 

MOV R3,-(SP) ;SAV E R3 

MOV RY, he ;SAVE RY 

MOV sDRIVE’S BLOCK ADDRESS 

ADD asoreRc, RY 5 ADD THE STARTING ADDR OF SECTIONS TO CLEAR 






MOV »R3 UMBER OF LOCNS TO BE CLEAR 
ERROR ly NOT CLEARED) 

















CLR (R4Y)+ 

DEC R3 : DECREMENT THE LOCATION COUNTER 
BNE 2g -BR IF MORE TO GO 

MOV (SP), RY ; RESTORE 

MOV (SP)+ RESTORE RQ 

INC spasee tea) j INCREMENT THE PASS COUNT 

BR OPX ;EXIT 

TYPE $CRLF 

CLR RY ;CLEAR RY FOR DRIVE NUMBER 

MOVB “MOVE DRIVE 

BICB arRaLT RA), Asnist sDELETE DRIVE FROM ASSIGNED LIST 
ASL RIVE NUMBER INTO TABLE INDEX 
MOV RG. DUNIT(R4) PUT BLOCK ADDRESS INTO DROP LIST 
RTS PC’ : RETURN 
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4582 : ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 
4584 : MOV NUMBER, RS ‘DIVISOR INTO RS 

458s : JSR PC, GETREM 

1388 : RETURN _ REMAINDER IS IN RS 

4588 026756 013746 032402 GETREM: MOV $LONUM, -(SP) " jSTORE RANDOM NUMBER ON THE STACK FOR DIVIDE 
4589 026762 013746 032400 MOV SHINUM. -(SP) ; UPPER 

4590 7 p10546 MOV Be, (SP) PUT Rue ABIVISOR ONTO THE STACK 
4591 62677 4737 027004 JSR P CiRKOV tD VIDE THE RANDOM NUMBERS 
uS92 026774 912605 MOV (SP), RS :PUT THE REMAINDER INTO RS 

4593 026776 005726 TST "ADJUST THE STACK POINTER 

4594 627000 o90240 NOP "FOR DEBUGGING HALT 

4335 027002 000207 RTS PC 

4597 s LINK ROUTINE To THE DIVISION UTILITY SUBROUTINE 

4599 : THIS ROUTINE ALLOWS THE ’SYSMAC’ DIVIDE ROUTINE 

4533 : CALLING SEQUENCE TO BE USED 

4601 027004 104412 LINKDY: SAVREG :STORE RO - RS 

4602 027006 016605 000026 MOV 6(SP), RS :DIVISOR 

4603 Oe70l2 O05004 CLR OTHER DIVISOR WORD 

4604 927014 O16602 090030 MOV SO(SP), R2 :UPPER DIVIDEND WORD 

4605 027020 016603 O00032 MOV 32(5P)'R3 *LOWER DIVIDEND WORD 

4606 927024 005000 CLR RO :CLEAR OTHER DIVIDEND REGISTERS 



















4607 027026 005001 CLR Rl 
7030 027052 JSR M.DPID :GO TO THE DIVIDE ROUTINE 

46039 927034 O10166 000030 MOV Ri ”30(SP) "REMAINDER ON THE STACK 

4610 027040 010366 o00032 MOV R3; 32(SP) ;QUOTIENT ON THE STACK 

4611 O27044 104413 RESREG ST 

4612 027046 012616 MOV (SP)+, (SP) IMOVE RETURN UP THE STACK 

i613 027080 000207 RTS PC 

4615 : DIVISION UTILITY SUBROUTINE 

4616 : RO-R1-R2-R3=DIVIDEND 

4617 : RY-RS=DIVISOR 

4618 : RO-RI=REMAINDER AFTER DIVISION 

4619 : R2-R3=QUOTIENT AFTER DIVISION 

#20 : ENTER WITH JSR PC,M.DPID 

uBoo 012746 oo0040 A.DPID: MOV #40, -(SP) ;COUNTER FOR DIVISION CYCLES 

4623 027056 O10446 MOV RY, ~(SP) 

4e54 60 O10546 MOV RS’ -(SP) AW ORDER DIVISOR TO THE STACK 

4625 27062 O0S466 oon0002 NEG 2( SP) := ORM N 

4626. 027066 OOS416 NEG aSP : oRSION OF THE DIVISOR 

4627 027070 OOSb6& oD0002 SBC 2(SP) 

4628 027074 O61601 ADD aSP,R1 

4629 027076 O05S00 ADC RO sPERFORM THE INITIAL SUBTRACTION 

4630 027100 O66600 ooD00e ADD 2(SP).RO 

4631 27104 103445 BCS M.DPSO IF CARRY THEN OVERFLOW HAS OCCURRED 

= (SP) ‘THIS IS A LONGER LASTING CARRY BIT 





46 006103 
4634 QOe7lle 006102 
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000002 


000004 


000010 


00CS06 
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asP . § 
4(SP) RO: <= 
M.DP42 

5 Ri 


; TEST “CARRY” INDICATOR 
sIF_NO “CARRY” THEN ree ELSE SUBTRACT 
;CLEAR UP FOR NEXT TIME 


;ADD -(DIVISOR) 
SET “CARRY” 


sADD +(DIVISOR) 
SET "CARRY" 


; SET “CARRY” 

; TEST THE UPDATE INDICATOR 
;IF ZERO FORGET IT 

NO CARRY POSSIBLE HERE 
:DECREMENT COUNTER 

BRANCH IF MORE TO DO 


;ADJUST STACK BY 4 WORDS 


+ i TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 


010046 
000012 


000006 
000060 


000040 


5300 
027270 000060 


#ADR, -(SP) 
RS, REPLZ 


RO 
#’0, (RO) 


;ADDRESS OF NUMBER (IN ASCIT) 
;’N’ IS NUMBER OF DIGITS TO BE TYPED 


5 aaNS fr 
AXIMUM NUMBER OF DIGITS TO BE TYPED 
CUB TACT peel TO FORM INDEX 
ADDRESS OF NUMBER TO RO 
;BY TE_EQUAL TO ASCII *O’ ? 


NOT 
REPLACE THE ZERO WITH A SPACE 
; INCREMENT THE BYT D 
BACK_AND LOOK FOR MORE LEADING ZEROS 
+SEE IF ZERO BYTE TERMINATOR 


BACKUP STRING POINTER 
:PUT A ZERO BACK IN 


SEQ 0125 
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4766 Je2746e2 
027465 
027470 


121127 


121127 
+ 


105711 
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000060 ° 
000067 


177770 


oocced 


00007! 


000060 


000054 
oco0S& 
027462 
027434 





, 
’ 
. 
s 
s 


CK.OCT: 


1$: 


; THIS ROUTINE IS USED TO CHECK AN ASCII CHARACTER 
$AND DETERMINE IF IT IS A DIGIT BETWEEN O AND 9. 


1$: 


;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 


JSR 
RETURN 


MOV 


JSR 
RETURNI 
RETURN2 
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RS,CK.OCT 


#ADR,R1 


RS, CK. DEC 


; DETERMINE WHAT IT IS. 


CK.CHR: 


RS,CK.DEC 
4$ 
RS,CK.OCT 
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SEQ 0127 






ah te Fe NOT 6 Fue N 0-7 
CHARACTER 18 IN RE A 





LESS THAN ZERO? 
YES -- BRANCH 
GREATER peri SEVEN? 
OFT THE CHARACTER 


:STRIP AWAY THE ASCII 
SOIT FOR RETURN 














;ADDRESS OF +3, CHARACTER 
;CHECK THE CHh 7 ER 


:NOT ae 
: BETWEEN 
:Re = DIGIT 


ites THAN ZERO? 


s GREATER pee NINE? 
GET THE CHARACTER 
;STRIP AWAY THE ASCII 
sROTUS FOR RETURN 















;ADDRESS OF ASCII CHARACTER 
: HAR “hs ER 


;COMMA * (RI)=ADR+ 

;PERIOD * od Ph ed 
:DIGIT BETWEEN O AND 7. 
:DIGIT BETWEEN 8 AND 9. 
:R2 = DIGIT € (R1)=ADR+1 


;"CARRIAGE RETURN”? 
~~ NCH 
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030000 
030006 
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016627 


016637 
012746 
4737 


012737 
012737 


ooooce 027744 
027744 
03e5C0 
000002 


000000 


on 


o00002 
oono00 


030030 000060 
000e40 000062 


R3, (SP) ;CHECK THE MAGNITUDE OF THE NUMBER 
iB if ENTERED NY NY MBER TOO LARGE 
YPASS 


; INCREMENT RETURN PAST INVALID RETURN 
t MENT RETURN 
RETURN POINTER 
ieN ERED VALU LUE 
EAN MAX. SIZE OFF OF STACK 
;RESTO RE R3 


;REST ges RY 
fae ETURN ADDRESS 


;THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
{UNSIGNED DECIMAL ASCIZ NUMBER. 

; MOV -NUMBER,-(SP) §§ ;PUT THE NUMBER ON THE STACK 

; JSR _—s- PC, $SBeD 

; RETURN ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


;NOTE: THE PROGRAM REQUIRES THIS FORM OF ’$SB2D’, NOT THE VERSION ON 
; THE SYSMAC LIBRARY, REV C AND LATER 


$SB2D: 2(SP).1$ ;SAVE THE BINARY NUMBER 
MO 41S ~tsP P) sSET THE POINTER 
DB2D :CALL THE DOUBLE LENGTH CONVERT 
(SP) BCSP) ‘BTCKUP THE POINTER 
io : RETURN 


;THIS ROUTINE WILL CONVERT A 1&-BIT UNSIGNED BiNARY NUMBER TO AN 
s UNSIGNED OCTAL ASCIZ NUMBER. 


MOV NUMBER,-(SP) | ;PUT THE NUMBER ON THE STACK 
; JSR PC, $SB20 : 
RETURN ;ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 


;NOTE: THE PROGRAM REQUIRES THIS FORM OF *$SB20’, NOT THE VERSION ON 
; THE SYSMAC LIBRARY, REV C AND LATER 


$SB20: ;SAVE THE BINARY NUMBER 

M #1 :SET THE POINTER 
CALL THE DOUBLE LENGTH CONVERT 
:PICKUP THE POINTER 
RTS ; RETURN 
1$: -WORD 0,0 
poe INTERRUPT INITIALIZATION ROUTINE 


; JSR PC, STKINT 
: RETURN 


STKINT: MOV WSTKSRV,TKVEC ;SETUP VECTOR 
MOV #PRS,TKVEC+2 PRIORITY TO S 


SEQ 0129 








we see 008777 1511 

3 ~ 

307 O89S2e 000207 
4908 
4903 
43.0 
4611 
4 ; 
4813 050930 10440 

| 4514 050032 112637 030160 
4815 030036 37e7 930160 
4816 030044 501012 
48." uslO46 104401 001165 
“318 930052 104401 030452 
4919 930086 Qle73? 177777 
ase faoee ¢¢ 6181054 
ase Oa0brs eave? oo1luo 
sans 335i a2 i053 030160 
ages D309 95 
49295 O30lle 10440; 001165 
iN a ae 
"929 0290126 O12e746 03014, 
4930 9301n2 7? 151006 
4931 230138 631714 
S332 l4e Ole777 000100 
4633 O30i50 00402 
4324 030152 104401 030160 
4835 930156 400002 
4336 
4937 030180 900000 

| 4938 

| 4539 

| 456 
4341 

| 4o43 

| 4843 

| ass 

| ague 

} . 


ie4 | Bos046 
4947 030156 612703 O304H0 
703 3042 


seers 000177 


& 
7 
; poate 
E 


ReRATRE SO op heRa® Schober aS eSU5 


126 
O20 Qier7r COO1SO ISi11e 


000003 


001262 


000176 
000097 


030436 


RCISER 
INES 
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" 
Ris 


a$TKB ;CLEAR THE BUFFER 
i ema ‘gt T INTERRUPT ENASLE 


re INTERRUPT SERVICE ROUTINE 
+e 
ENTER VIA INTERRUPT 


STKSRV: 
M 


1$: 


2s: 


38: 
4$- 


S$: 


. WORD 


ye THE KEYBOARD 


(SP)4+,S$ :GET THe CHARACTER 
$83 :* CONT 

i :BR IF Pebr’ 

, SCRLE :CR-LF 

SCNTLC °° #C’ 

b-1, CFLAG :SET THE "CONTROL C° FLAG 
agtks :CLEAR THE TTY INTERRUPT 

SAR, HSUREG Sop wane SWI1CH REGISTER IN USE ? 
55,87 :*CONTROL G° ? 
:SR IF NOT 

“SCRLF ;CR-LF 

SCNTLG 2" ¢G° 
PS -(SP) :PUT THE STATUS WORD ON THE STACK 
#2$,-(SP) : RETURN ORESS 
aS TKS SCLEAR THE TTY INTERRUPT ENGBLE 
SGTSWR :GET THE SWITCH REGISTER ENTRY 
#105, a$TkS sENAGLE TTY KEYBOARD INTERRUPT 

5S ‘ECHO THE CHARACTER 

s RETURN 

0 sENTERED CHARACTER 


ee ROUTINE WILL INPUT A STRING FROM THE TTY 


RDLIN 
RETURN HERE  AnoRES SS OF FIRST CHARACTER yar BE ON THE STACK 
: TERMINATOR WILL BE A BYTE OF ALL O°S 


; INPUT A aThiNg FROM THE TT 


F3, 5 (SP) R3 
CLEAR THE RUBOUT KEY 
SSTTYIN R3 :GET ADDRESS 
aSTTYINGLO, R3 er, FULL? 


YE 
;GO_READ one CHARACTER FROM THE TTY 
CHARACTER 


(SP)+, (R3) :GET 

177, (R32) 1S 17 R RUBOUT 

ep) TS THIS THE FIRST RUSOUT? 
8°\,98 ‘TYPE A BACK SLASH 

b-1, (SP) ;SET THE RUSOUT KEY 















i. oe, 
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4959 030234 005303 —=s« $$: DEC R3 s BACKUP BY ONE ee 
4350 NAS 227 «030440 CMP fg eSTrvEN cur? ~ 
yf, 30242 TANS Blo OY ‘Be . 2 
4362 9308 0244 111337 030436 MOVE = (R3),98 : SETUP 1 TYPEOUT THE DELETED “CHAR. 
4565 930250 104401 0320436 TYPE 3g :60 TYP 
4964 0350254 COC? BR 2$ :60 READ QNOTHER CHAR. 
4365 9302 gos7is cs: TST (SP) ;RUBO Tk Y SET? 
4966 93 1908 B=9 73 
4957 030262 112737 000134 030436 MOVB =a, 98 i TYPE A “Back SLASH 
4968 93027C 10440] 030436 TYPE 93 
4969 030274 1 : CLR (SP) CLEAR THE RUSOUT KEY 
4870 030278 122713 o00025 7$: CMP «#25, (R3) 15 CHARACTER A CTRL U? 
4871 630302 001003 NE ! :BR 
4§72 030304 194401 032246 YPE $CNTLU : TYPE a CONTROL “ 
4873 030319 O00726 BR 1§ :G0 START OVER 
4874 930312 ee? 3 oc0003 10$: CMPB 83,(R3) :IS CHARACTER A CTRL C ? 
4875 930316 O01 Fr BNE 23 :B 
4876 930320 012737 77777 oOCl26e2 MOV #-1, CFLAG :SET CNTRL C FLAG 
4877 030326 104401 030452 TYPE $CNTLC ;ECHO IT 
4878 030332 000427 ae 1$ 
487§ 030334 122713 900012 BS: CMPB saw 2, (RD :1S CHARACTER Q “LEY? 
4980 O3034¢ 901011 BNE 33 :BRANCH IF NO 
4981 O30342 195013 CLRB OS s«(R3) ;CLEAR THE CHARACTER 
4982 930344 104401 o01165 TYPE  ,$CRLF :TYPE A "CR" & "LF" 
4983 9393SO 104401 030440 TYPE  ‘$TTYIN s TYPE THE INPUT STRING 
4984 930354 000706 br a :G0 PIC KUP ANOTHER CHOCTER 
4385 030356 104401 O01164 4$: TYPE SQUES :TYPE A 
4386 030362 000701 BR 1g : CLEAR THE BUFFER AND L 
4987 930254 111337 030436 33: MOVE  (R3),9S :ECHO THE CHARACTER 
4888 930370 104401 030436 TYPE 
4928S 030274 122723 O00015 CMPS = s«&15,, (R3)+ CHECK FOR RETURN 
4830 020400 001274 BNE *LOOP IF NOT RETURN 
4991 030402 195063 177777 CLRB = (R3) CLEAR RETURN (THE 15) 
| 4992 O3040E 10440] 001166 TYPE, SLF ;TYPE A LINE FEED 
4893 030412 005726 11g: TST = ESP )+ CLEAN gUguUT KEY FROM THE STACK 
4994 930414 012603 MOV (5P)+,R3 RESTO 
4995 O30416 OLIENE MOV (SP), +P) ADJUST tHe STACK AND PUT QDDRESS OF THe 
| 49896 930420 516666 000004 900002 MOV 4(SP} 2(SP) : FIRST ASCII CHARACTER ON IT 
4997 pete oie? 030440 00004 MOV s$TTYIN, 4(SP) 
| 4998 B30454 50500 RTI sRETU 
4999 030436 909 9S: .BYTE 0 : STORBGE. FOR ASCII CHAR. TO TYPE 
5900 030437 009 “BYTE 0 3T I 
5001 930440 00012 STTYIN: .BLKS 10. RESERVE 10 BYTES FOR TTY INPUT 
Be 0320452 O4153¢ cOsoIS 000 $SCNTLC: .ASCIZ 7#C/<CR><LF> SCONTROL “C" 
| s 
5008 030460 EVEN 
eane 5p RREREEAREES ERAS RAR ELA ERASLARRALRALAALAAPAL ALLA ALA RATS LALATLALLE 
j www 
£958 .SBTTL MACRO ROUTINES 
| £910 .SBTTL ERROR HANDLER ROUTINE 
| edie 5p REFERRERAESLELAAREARARLLALAALASAAARALLRAAAAAALHAAL ALARA AAP AAE 





a ccsemetsennsnremensiaimsianwesemnigageaes . a 


“DER! 
a) 


ck 
19 


> ar 


re 
C40 


63: 
Oot 


tatetatay 
I goog 

0 0-2 b> + 0 9p 
GI OWOD ITU Ls 


rververy 
rote 


a 


| REOY-S & MULT 
ERRO 8 HANDLE 


PRE BRPREBRnorE 
rue Power 4 pat Ge 
SYSR ASRS 


Ig 


104401 
010046 
005000 
153700 
001904 


013746 


091102 
992000 


001169 


7? ‘001112 


001116 
000002 
150336 
020000 


030616 
001165 


150332 | 


001165 


001114 


001116 


150440 
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OUT 


;#THI oie Enso OTE NR NT .THE ERROR a AND THE ERROR COUNT, 


i358 M NUMBER AND THE ADDRESS OF THE ERROR CALL 
STH SurTcH OP TTONS "Paov ep ‘BY THIS ROUTINE ARE: 
WIS=1 HAL 
BOUTS! INHIBIT ERROR TYPEOQUTS 
#841051 BELL ON ERROR 
:* ERROR N : ;ERRORSEMT AND N=ERROR ITEM NUMBER 
SERROR: 
CKSWR se TEST FOR CHANGE IN SOFT-SWR 
MOV R3, ATTN :SAVE THE ATTENTION REGISTER CONTENTS 
MOV Rl; DRIVE : DRIVE 
BIT aSiil3, JSWR s INATBIT PRINTOUTS ? 
BNE :BR IF YES 
ISR be OT IME :TYPE THE TIME 
7$: INCB SERFLG 5385 THE ERROR FL AG : 
BEQ 7§ :DON’T LET THE FLAG GO TO ZERO 
MOV STSTNM, QDISPLAY i DISPLAY TEST NURBER AND ERROR FLAG 
BIT #81710; aSWR : BELL L ON ERR 
BQ: s«1S 2:NO = 
TYPE $BELL :3RI BELL 
is: INC SERTTL +: COUNT ThE NUMBER OF ERRORS 


pap are SEPRPC 3;GET ADDRESS OF ERROR INSTRUCTION 


SERRPC 
MOVB seesepe SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
BIT #8IT13, ISWR :§ BKIP TYPEOUT IF SET 


BNE 20$ ::SKIP TYPEOUTS 
ISR PC. SERRTYP ::G0 TO TISER ERROR ROUTINE 
fe Type ,SCRLF 
28: TST aSWR :HALT ON ERROR 
BPL 3$ | Eck IP IF CONTINUE 
HALT ::HALT ON ERROR! 
ma CKSWR : 3; TEST FOR CHANGE IN: SOFT-SWR 
. RTI ; ;RETURN 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


5 RERERAEEE ERLE REALE REEL ARE AE REEL ELAR EAE EE ERELE EERE ER AL EER RERESSE 
t ATHIS ROUTING USES THE “ITEM CONTROL ky (St rere) TO DETERMINE WHICH 
:#ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE “ERROR TABLE” ($ERRTS), 
;#AND REPORTS THE APPROPRIATE IiFORMATION CONCERNING THE ERROR. 


SERRTYP: 
TYPE SCRLF ;;"CARRIAGE RETURN” & “LINE FEED” 
MOV RO, -(SP) 33 
CLR RO’ ;;PICKUP THE ITEM INDEX 
BISB aeSITEMB,RO 
BNE 1$ si 1F Mey NUMeER 1s ZERO, JUST 


:: TYPE THE PC OF THE ERROR 
MOV SERRPC,-(SP) SAVE SERRPC FOR TYPEOUT 








. RPO4’S/6 MULTI-DRIVE EXERCISER 
ERROR MESSAGE TYPEOUT ROUTINE 


BARREBRES 


TU 0 0 0+ b 0 + 0 8 
OWOOnNMUcCtur-OwWw 


co 


me + me a 
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8 RROR ADDR 
TyPOC ; He wT YpE==OC FAL ASCII(ALL DIGITS) 
18: cfc OOO : see TUST THE INDEX SO THAT IT WILL 
BS. RO i WOR FOR THE ERRGR faBt 











ast RO 

ADD #SERRTE RO FOR TABLE POINTER 

MOV (RO)+,2$ PICKUP “ERROR MESSAGE POINTER 
Q 3$ P TYP NO_POINTER 














33 TYP ME 
23: .WORD 0 3; "ERROR MESSAGE” POINTER GOES HERE 
TYPE SCRLF ::"CARRIAGE RETURN” & “LINE FEED" 
33: MOV tRODs, 43 : PICKUP “DATA HEADER” BOIN NTER 
BEQ ;;SKIP TYPEOUT IF 0 






E 
TYPE 3; TYPE THE “DATA HEADER” 













‘ 0 ssnpaTA HEADER” POINTER GOES HERE 
TYPE SCRLF :"CARRIAGE RETURN” & “LINE FEED" 
S$: MOV tRO), RO ; $PICKUP “DATA TABLE" POINTER 
BNE 7§ ::G0 TYPE THE DATA 
b$: MOV (SP)+. RO : :RESTORE 
TYPE SCRLF ;§ PCARRIAGE RETURN” & “LINE FEED” 
- RTS Je : RETURN 
‘3: 
MOV 3(RO)+,-(SP) : 3 SAVE 3(RO)+ FOR TYPEOUT 
TYPOC $99 TyPE--0 CTAL OSCIT(ALL DIGITS) 
TST (RO) IS T HERE ANOTHER NUMBER? 
BEQ &$ :BR 
TYPE 488 : TYPE T9(2) SPACES 
é 
gs: -ASCIZ 4 / ::TWO(2) SPACES 








-SB8TTL TYPE ROUTINE 


33 ROUTINE TO TYPE ASCI? MESGAGE NEGGRGE MIST TERNINATE WITH AO 
: ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH AO BYTE 





;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS A _LINE FEED. 

; #NOTEI: SNULL CONTAINS THE CHARACTER 70 at SED AS THE FILLER CHARACTER. 
; #NOTE2: SFILLS CONTAINS THE NUMBER OF PILteR ae REQUIRED. 
ENOTES: $FILLC CONTAINS THE CHARACTER TO FILL AF 






CALL: 
#1) USING A TRAP INSTRUCTION 


ie YPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
: TYPE 
LS MESADR 
H * 
$TYPE: TSTB STPELG 3;I1S THERE A TERMINAL? 
BPL 1$ . 


+3 Y 
HALT :;HALT HERE IF NO TERMINAL 
BR 3$ ; ; LEAVE 


ay 
~~ 
rw 
rm 


CNUs 
ETO TOO TOO ONO CNOUN ee oe Ee ee £ WW WW) Witiwururururororon 


MD-11-D2RI0-A, 
019 


030764 


pete 3 
03977, 
050774 
930776 


BROS oaks 


RBS RARRBBRARAR BAAS 


BB SEpssEssssssssEe 
ee BeEER 


ues 
00 
9 SSR 
at 23¢ 


ied esis EIEDEIGIEDED 
0-+ 0-2 6 & <6 -< 2 &- + 6 b= Pb -e ee 
oe e-tabeceruatabranesss-o then 
FEKBVENSH ERD 


TYPE R 


000092 


000002 
000011 
000209 


031166 


031122 
001156 


001154 
000001 


C3llee 
C31166 


o0co40 
031122 
000907 


150022 


009002 
000015 


031166 
oo00ie 


RPO, “ a atta EXERCISER 


031166 


150014 
00000e 


000002 
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;HORIZONTAL TAB 


INCB 
PART BORO 





HT, (SP) 

#CRLF, (SP) 

(SP)+ 

SCHARCNT 

25 

BC STYPEC 

SFILLC, (SP)+ 

$NULL, -(SP) 

1(SP) 

6$ 

PC STYPEC 

SCHARCNT 

PROCESSOR 

Ec, gtSp Sec 

#7. SCHARCNT 

(SP)+ 

2$ 

aSTPS 

$TYPEC 

3(SP). a$TPB 
R,2tSP) 

SCHARCNT 

He 

Tee 

PC)+ 

C 


VO — Ms Mw se 
I~ HOMO 


-SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


: KERREAHERARERERAREES ER EREERRERER EL EERE ERE RRR ERRRRERRERERERE ERE 
THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A &-DIGIT 
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VPED ONTO STACK 
tTIF TERMINATOR POP IT OFF THE STACK 
: abdust RETURN PC 
!IBRANCH IF <HT> 
s;BRANCH IF NOT <CRLF> 
ae EQuiv 
AND L 


a ate COUNT 
;GET_NEXT_ CHARA a3 R 


TYPE A 
383 NOT COUNT AS A COUNT 
LOOP 


+ EOE ae TAB_WITH SPACE 
YPE A SPACE 
cries IF NOT AT 
OP met CHARA aTEEK 
;;WAIT UNTIL PRINTER IS READY 


;;LOAD CHAR TO -. TYPED INTC Ttee REG. 
i315 aor eS 


ine CHARACTER COUNT 





5 


a 


C49 
o~- 

on 

fr 
i 


a ] 
aioe 2 


CUNO UU UN UI UT UU Un Rn UU TU un a 3 
PRESS Fe Witritet tT 4 eee 233 


wo 

~~) 

me 
B53 


SB 


SSSSSSSSSSSSsSSSssesssssssssesse8e 


bb -* b= b= = 0 -= + B&F = bb b= 0 0 be 0 + 2 bh ep op eg 


Me 
rfurorronrorure 
FEHSN ES CO 


% 


w 
of 


RSHORISHO 
WOnNMUW£CWwlue-O 
Sa 


S 
SRS RS 


SoRe 


D-A, RPOY/S/6 MULTI-DRIVE 
BINARY TO OCTAL (ASCII) AND TYPE 


031415 


031415 
031417 
031414 


o0d012 


031416 
177770 


000060 
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;#OCTAL (ASCII) NUMBER_AND TYPE IT. 
a HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


Hg MS) IOE eatre | 
:# Tae N *:N=I TO 6 FOR NUMBER OF DIGITS TO TYPE 
;* -BYTE M ;;M=1 OR O 
;* $s LSTYPE LEADING EROS : 
i# | 7: Q=SUPPRESS LEADING ZEROS 


; #STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
aoe OR STYPOC : 


x MOV NUM, (SP) :;NUMBER TO BE TYPED 
i TYPON ::CALL FOR TYPEOUT 
; #STYPOC---ENTER HERE FOR TYPECUT OF A 16 BIT NUMBER 
: # MOV NUM, -<SP) ;;NUMBER TO BE TYPED 
1% TYPOC ?:CALL FOR TYPEOU 
$TYPOS: MOV a(SP) ,-(SP) :sPICKUP THE MODE 
MOVE 1(5P);SOFILL ::LOAD ZERO FILL SWITCH 
MOVE (SP)+'SOMODE+1 ::NUMBER OF DIGITS TO TYPE 
BDD 42, (SP) ::ADJUST RETURN ADDRESS 
STYPOC: MOVB = #1, SOFILL :;SET THE ZERO FILL SWITCH 
OVE #6; SOMODE+1 ::SET FOR SIX(&) DIGITS 
STYPON: MOVE #5, SOCNT ::SET THE ITERATION COUNT 
MOV R3,-(SP) ;;SAVE R3 
MOV R4Y,-(SP) ;;SAVE RY 
MOV RS,-(SP) ;;SAVE RS 
Nove SOMODE+1,R4 ::GET THE NUMBER OF DIGITS TO TYPE 
ADD #86,R4 ;;SUBTRACT IT FOR MAX. ALLOWED 
MOVB RY. SOMODE ::SAVE IT FOR US 
MOVB S$OFILL,RY -:GET THE ZERO FILL SWITCH 
; MOV 12(SP);RS ::PICKUP THE INPUT NUMBER 
CLR R3 ::CLEAR THE OUTPUT WORD 
1S: ROL RS ::ROTATE MSB INTO "C™ 
BR 3$ 336 
23: ROL RS ::FORM THIS DIGIT 
ROL RS 
ROL RS 
MOV RS,R3 
3S: ROL R3 :;GET LSB OF THIS DIGIT 
DECB  $OMODE :: TYPE THIS DIGIT? 
BPL ? ::BR IF NO 
BIC 8177770,R3 ::GET RID OF JUNK 
BNE 4 :: TEST FOR O 
TST RY :: SUPPRESS THIS 0? 
BEQ S$ 7 YES 
ug: INC RY ::DON’T SUPPRESS ANYMORE 0°S 


BIS #'0,R3 ;;MAKE THIS DIGIT ASCIT 
















—Fs 


wo7 


ATE 


ih 
GJ 
£ 
ai aintatntatatat at ata 
o 
£ 


SS 
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BINARY TO OCTAL (ASCII) AND TYPE 


os27 004 
Litas act 

104451 031413 
10s397 031414 


000000 


020290 
6605S 000020 
ooooss 


031634 
000040 


031624 


oo000e 000004 


000001 


S$: 


7$: 


$$: 


SONODE: 


.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
Te gta ee ge le yd pe 


. WORD 


oono00 -—M--- 


oO 





THIS ROUTINE IS USED T 


: SIGN 
:#BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


cute WITH SPACES. 
NUM, -(SP) 


% 


S$TYPODS: 


1$: 


es: 
3$: 


4§: 


MOV 
TYPDS 


#’-, 1(SP) 


“ae R3 


55 
R1,RS 
Re 


’ 


(R3)+ 


ire cag), 
R1,RS 
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HANGE A 16-BIT gine NUMBER TO A S-DIGIT 








SEQ 0136 





ey Ses Na NOT ALREADY 


3360 Lys THIS Dicrt 


UNT BY 1 

TBR IF MORE TO DO 
:BR_IF_DONE 

tt INSURE LAST DIGIT 

3360 D0 THE LAST DIG 

TIRESTORE RS 

;;RESTORE RY 

ZIRESTORE R3 

ao THE STACK FOR RETURNING 


ISN’T A BLANK 
IT 












;;PUT_THE BINARY NUMBER ON THE STACK 
;;G0 TO THE ROUTINE 






;;PUSH RO ON STACK 
3 ;PUSH Rl ON STACK 
H ON STACK 







ee TACK 
:3SET BLANK sitTcs AND SIGN 
s3GET THE INPUT NUMBER 
:38R IF INPUT IS POS. 

AKE THE BINARY NUMBER POS. 
H ReKE THE ASCII NUMBER NEG. 
:7ZERO THE CONSTANTS INDEX 
::SETUP THE OUTPUT POINTER 
"SET THE FIRST CHARACTER TO A BLANK 
:sCLEAR THE BCO NUMBER 
IIGET THE CONSTA 
;;FORM THIS BCD DIGIT 


;6R IF 
;; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
;;CHECK IF BCD DIGIT=0 



















SEQ 0137 
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OZRID.919 CONVERT BINARY TO DEC 


MUL 
B ECIMAL AND TYPE ROUTINE 





Se ie jue fie fb EL HEINE ch o's 
esc Batelg {baad i tea TF Yee 

Se ies ieee a an i 10 

2584 Bates 1020p 900001 177777 MOVB  =-:1(SP),-1(R3) *:YES=-SET THE SIGN 

S289 031530 OS2702 o00060 6S: SIS #'0,Re ss MAKE THE bee DIGIT ASCII 

5290 031534 OSe702 00040 7g: BIS #’ 'Ro *MAKE IT A SPACE IF NOT ALREADY A DIGIT 
5291 031540 110223 MOVB Re, [R3)+ 3 3PUT THIS CHARACTER IN THE OUTPUT BUFFER 
S292 031542 005720 TST (RO)+ *JUST INCREMEN TING 

5293 031544 020027 o00010 CMP RO, #10 is CHECK THE TAB INDEX 

£294 031550 002746 BLT 2$ *:GO DO THE NEXT DIGIT 

5295 031552 003002 | 8GT 9§ 3360 5 EXIT 

5296 031554 010502 MOV RS,R2 :GET THE LSD 

5297 031556 764 BR Ee G0 CHANGE TO ASCII 

5298 031560 105726 g$: TSTB ss (SP) + 3;WAS THE LSD THE FIRST NON-ZERO? 
5299 031562 1000 BPL FN 

5300 931564 116653 177777 177776 MOVE  =1(SP),-2(R3) i VES set THE SIGN FOR TYPING 
5301 031572 1050 9S: CLRB ss (RB) +:SET THE TERMINATOR 

S302 031574 012605 MOV (SP)+,RS :sPOP STACK INTO RS 

5303 031576 012603 MOV (5P)+/R3 ::POP STACK INTO R3 

5304 031606 602 MOV (SP)+'Re *:POP STACK INTO Re 

5305 031602 012601 MOV (SP)+/R1 ::POP STACK INTO RI 

5306 031604 012600 MOV (SP)+°RO 3;POP STACK INTO RO 

S307 031606 104401 031634 TYPE $DBLK OW TYPE THE NUMBER 

5308 931612 016666 o00002 on00004 MOV 2(SP),4(SP) ?:ADJUST THE STACK 

5309 031620 012616 MOV (SP)+; (SP) 

5310 O31622 og000e2 RTI ;;RETURN TO USER 

5311 031624 O23420 SOTBL: 10000. 

S312 031626 001750 1000. 

S313 021630 000144 00 

5314 031632 000012 10. 

2318 031634 900004 SDBLK: .BLKW 4 

5317 ; .SBTTL TTY INPUT ROUTINE 






53193 F 5 y RERRRELER ALAA AE ERASER AEA AE LEAL AA ELAR REAL ER RELA ARAL ER EL EERE ELELE 
£320 "ENABL LSB 













S322 eee ree eee teeter eet ttt ttt ttt ttt tit ttttt tt tttttttttt 
5323  SSOFTW WARE SWITCH REGISTER CHANGE ROU 

5324 ; #ROUTINE 15 ENTERED FROM THE TRAP HANDLER, AND WILL 

5325 *¥SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
5326 *bIHEN OPERATING IN TTY FLAG MO 

E357 031644 022737 000176 O01140 $cvSWR: CMP #SWREG, SWR 3;IS THE SOFT-SWR SELECTED? 

S328 031652 001074 BNE 15$ 3 ;BRANCH IF_NO 

5329 031654 105777 147264 - TSTB. =: OSTKS HAR THERE? 

£330 031660 100071 BPL 15$ He NO, DON’T WAIT AROUND 

5331 O31662 117746 147260 MOVB a$TKB,-(SP) ::SAVE Tf 

5332 031666 042716 177600 BIC ##C177, (SP) ss STRIP-OFE THE ASCII 

6233 031672 022726 000007 CMP #7. (SP3+ s318 IT A CONTROL G? 

5234 0231676 OO106e2 BNE 15 3 3NO RETURN TO USER 

6325 031700 123727 001134 o00001 CMPB =: SAUTOB, #1 !:ARE WE RUNNING IN AUTO-MODE? 
5236 021706 ocl4se BEQ 15$ + BRANCH IF YES 












= 





MO-11-D2RJ0-A, 
JO.919 


pale to 


031744 
031750 


031754 


032124 


104401 


000720 
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032eS3 
032260 
000176 


032271 


147202 


147176 
177600 


o000eS 
032246 


000006 


000015 
000004 
oo00de 
000006 
001165 
001135 
000100 


031122 
000060 


000067 


000060 
000002 


000002 
177776 
001164 
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TYPE  ,$CNTLG :sECHO THE CONTROL-G (1G) 
$GTSWR: TYPE SMSWR $3 TYPE CURRENT NT ogONTENT NTS 
MOV SWREG, -(SP) i$ SAVE WRE UT 
TYPOC 2:6 TyPE-—0 cTAL aSCTTCALL DIGITS) 
TYPE  ,SMNEW + BROMPT FOR NEW SWR 
19$: CLR =(SP) *:CLEAR COUNTE 
CLR -(SP) 35 THE 
7$: TSTB 3s ASTKS ‘CHAR THERE? 
BPL 7§ tte NOT TRY AGAIN 
MOVB  a$TKB,-(SP ::PICK UP CHA 
BIC #10177, (SP ::MAKE IT oT ASCII 














9S: CMP (SP), #25 ::IS IT A CONTROL-U? 
BNE 103 Hy S IF NOT 
TYPE SCNTLU :YES, ECHO CONTROL-U (tU) 
20$: ADD 86 SP tS TENORE PREVIOUS INPUT 
BR 19$ Stier’ S TRY IT AGAIN 








10$: CMP (SP), #15 31S IT A <CR>? 
BNE 165 : RANCH IF_NO 
TST 4(SP) jYES, 1S 17 THE FIRST CHAR? 
BEG s11S ;;BRANCH IF YES 
MOV ~° 2¢SP),aSWR : SAVE NEW SU 
























HE RR MERE ieee 
: cMPB SINTAG, #1 fe: TT ry KBD INTERRUPTS? 
ae HOV tido, aSTKS ; sRE-ENABLE TTY KBD INTERRUPTS 
16§: JSR PC STYPEC ECHO CHAR 
CMP (SP), *CHAR < 0? 
Bhp «CSP, a7 ssBRANCH JP YES 
BGT 18% + ERANCH fr YES 
BIC #60, (SP)+ ::STRIP-OFF ASCII 
TST 2(SP) :1S THIS THE FIRST CHAR 
BEQ 58 ::BRANCH IF YES 
ASL (SP) NO, SHIFT PRESEN 
. © fon ke Se 
178: INC 2(SP) ?:KEEP COUNT OF CHAR 
PR atone tee the EXT CHE 
183: TYPE SQUES ti TYPE ?<CR><LFD 
tae BR 20$ ::SIMULATE CONTROL-U 





5 | PERERA EK ER ERE ALLA REEL EE AL ARE RELAA EERE RA ERERRELAARERELAERAARE 
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DZRJD. 


919 


032324 


TTY INPUT ROUTINE 


O11646 


006300 


009004 
147002 
146776 
177600 


146750 
148744 


oooo04 
ooc004 
000040 


006507 
052523 

000 
047040 
000040 


032402 
032400 
177771 


oo000e 


000004 
000004 
000023 


000140 
000175 
000004 

000 
000012 
020122 
053505 


RDCHR 
% RETURN HERE 


SRDCHR: MOV (SP), -(SP) 
MOV 4(SP) ,2(SP) 
1S: TSTB = ASTKS 
BPL 1$ 
MOVB  a$TKB,4( 
BIC ##0<177> 4(SP) 
CMP (SP), #2 
BNE 
2S: TSTB © aSTKS 
BPL 23 
MOVB  a$TKB,-(SP) 
BIC ##0177, (SP) 
CMP (SP)+, #21 
BNE 25 
BR 1$ 
3S: CMP . 4(SP), #140 
BLT 4 
CMP 4(SP), #175 
BGT 4$ 
BIC #40,4(SP) 
4§: RTI. 
SCNTLU: .ASCIZ /tU/<15><12> 
SCNTLG: .ASCIZ /#G/<15><12>. 


SMSWR: | ASCIZ <15><12>/SWR = 


SMNEW: .ASCIZ / NEW = / 


Hy Papel WILL INPUT A SINGLE CHARACTER FROM THE TTY 


s:INPUT A SINGLE CHARACTER FROM THE TTY 
::CHARACTER IS ON 
t{WITH PARITY BIT STRIPPED OFF 


3 PUSH DOWN THE PC 
THE PS 


 iaIT FOR 
- 3 CHARACTER 
s READ. T HE T 
-:GET RID OF TN UNK IF ANY 
a IT A CONTROL-S? 
3 ;BRANCH IF NO 


Ts IT A CONTROL-Q? 
siJF NOT DISCARD IT 
YES, RESUME 
is1S ir UPPER CASE? 
iis. iT ," PECTAL CHAR? 


CONTROL “G” 


.SBTTL RANDOM NUMBER GENERATOR ROUTINE 


j | UHHH AHHH HEHEHE HERE EHEHEEEE IEEE EERE EERE EERE 
sATHES ROUTINE IS A DOUBLE = panel PSEUDO RANDOM NUMBER GENERATOR 


¥ A RANGE OF O TO 2(+33)- 
7% JSR PC, SRAND 


1% RETURN 

o 

;% 

SRAND . 
MOV RO,-(SP) 
MOV R1;-(SP) 
MOV Ro’ -(SP) 
MOV $LONUM, RO 
MOY SHINUM, Ri 
MOV #-7,R2 

1S: ASL RO 


s;CALL THE ROUTINE 
;sRETURN HERE THE RANDOM 
S:NUNBER WILL BE IN 

: ? SHINUM, SLONUM. 


;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 


UNT 
‘ : SHIFT RO LEFT AND 


MD-11-DZRIJ0-A, 
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32326 
30 


032434 
032440 


O3244e 
O3e44e 
O3c446 
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ROL 
e303 ING 
001374 BNE 
z2 032402 800 
063701 032400 ADD 
700 001057 ADD 
005501 ADC 
062701 O47401 ADD 
910037 032402 MOV 
010137 032400 MOV 
912602 MOV 
012601 MOV 
012600 MOV 
000207 RTS 
176543 SHINUM: .WORD 
123456 SLONUM: .WORD 
t isay 
:# *CALL: 
t STOP--~( 416) 
:€ +2---(+18) 
2% +4---R5 
3% +6---R4 
:% +8---R3 
:¥+10---R2 
:¥+12=---R1 
:¥+14---RO 
SSAVRES: 
010046 MOV 
010146 MOV 
010246 MOV 
010346 MOV 
010446 MOV 
010546 MOV 
O16646 o00022 MOV 
O16646 o00022 MOV 
O16646 O00022 MOV 
O16646 O00022 MOV 
oooo0e2 RTI 
Gail RO-RS 
RESREG 
éRESREG: 
012666 o00022 MOV 
012666 o00022 MOY 


) rbemiag »RO 


SHINUM, R1 
#1057, »RO 


#47401,R1 
RO, SLONUM 
RL, SHIN 


176543 
123456 
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+ a0 LOW CONSTANT 

ts CARRY 

3 ADD HIGH CONSTANT 
; SAVE A 


;SAVE_R 
tt Bop STACK INTO Re 
;;POP STACK INTO R1 
33 POP Mag INTO RO 
; RETURN 


-SBTTL SAVE AND RESTORE RO-RS ROUTINES 


ee Gade oe cee REELRKAL REAL RKA RHA RAR KERR KER AE ERA REL EREE 


SAVREG 
HHUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


ee N STA 

;;SAVE PS OF MAIN FLOW 
3; SAVE PC 4 nen FLOW 
s32VE PS 0 

;; SAVE PC OF cat 


;;RESTORE PC OF CALL 
;;RESTORE PS OF CALL 





SEG C140 
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ORE RO-RS ROUTINES 






cere, PS OF dN FLOM 
6 Ra 


.SBTTL DOUBLE LENGTH BINARY TO DECINAL ASCII CONVERT ROUTINE 





5 ERK RHEE EEK EEK EERE EER EERE EERE RARE REA AREEEEEEEEEEE REAR ERE 
: $THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
sSDECINAL <ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 


Mure 
Aw 








;;POINTER TO LOW WORD OF BINARY NUMBER 


3;THE FIRST ADDRESS OF ASCIZ 
3;1S ON THE STACK 





ING 
PUT ADDRESS OF ASCIZ STRING ON STACK 
;;PICKUP THE BINARY NUMBER 


;;9ET UP TO DO 10 CONVERSIONS 
;;ADDRESS OF TEN POWER 


;;CLEAR PARTIAL 

;; SUBTRACT TEN POWER 

;;BR “4 TEN POWER TO LARGE 
tye TO PARTIAL 


RESTORE SUBTRACTED VALUE 





;;MOVE TO NEXT TEN POWER 
Save IT PARTIAL TO ASCII 





:3ER. 


; TERMINATOR 
j sRESTORE REGISTERS 
; ;RETURN 


;;1.0&09 


;;1.0E&08 
































MO-11-DZRJD-A, 
OZRIO.919 


032754 


006000 


000052 


177770 


000002 


RPO4/S/6 MULTI-DRIVE EXERCISER 
DOUBLE LENGTH BINAR, TO DECIMAL ASCII CONVERT ROUTINE 







13200 
G31 100 


13240 


23420 


$DECVL: .BLKB 
.SB8TTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
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;;1.0£07 

;;1.0E06 

;;1.0E05 
1.004 

;1.0E03 

;;1.0&02 

;1.0&01 

;1.0&00 

le. ;;RESERVE STORAGE FOR ASCIZ STRING 


5 EEK K ARERR AEE EEE EEE EEE EEE EH EERE EERE EE EERE EEE RR ERE EERE 
ATMs ROUTINE WILL CONVERT A 3e-BIT UNSIGNED BINARY NUMBER T& AN 


1$: 





MOV 
JSR 
RETURN 


SAVREG 
M 


oT OCTAL ASCIZ NUMBER. 


#PNTR, -(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
PC, a#$D820 CALL THE ROUTINE 
I!THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 


;;9AVE ALL REGISTERS 


2(SP),R1 s sPICKUP THE POINTER TO LOW WORD 
HSOCTULHI.,RS POINTER TO DATA TABLE 

#12, Ra 3300 ELEVEN CHARACTEES 

(R1)4+,RO HLORER WORD 

(R1)+;R1 3 sHIGH WORD 

: TERMINATOR 
Re,-(RS) i fPUT CHARACTER IN DATA TABLE 
0,Re GET THIS D 
: COUNT THIS aha RACTER 
3$ *BR IF N T THE LAST IGIT 


SEQ Ol4e 





























Ble 


$ 5p RRRRERERARAAERERERES SESE LERRAARALEAA LAE AHRARALARATAEA RATA LETTE 
= 
~ 


SOLi-DERIO“R, REQY 5.6 MULTI-DRIVE EXERCISER | tnCV it 27: SSS) 28-APR-76 {7:04 PAGE 107 S£0 0143 
osR30.519 DOUBLE LENGTH SINARY TO OCTAL ASCTE CONVERT ROUTINE 
SEO? 032766 : Bic RB, RE + MASK OUT ALL JUNK 
soso S3E-83 S2S555 ooo ADS ow’ Re :IMEKE THIS CHAR. ASCII 
e259 S3e774 00753 3 tO Bur Tt IN THe BATA TAOLE 
e810 Guerre Sd00i8 SOCTVL: .BLKB 14. IRPSERVE DATA TABLE 
cele .S8TTL TRAP DECODER 
5615 STHTS ROUTINE WILL PICKUP THE COMER GYTE OF THe “TRAP” INGTRUCTT 
Seis :FTHIS ROUTINE WILL PICKUP THE LOWER SYTE OF THE “TRAB™ INSTRUCTION 
ceis USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING AGDRESS 
seit SSOP THE DESIRED ROUTINE. THEN USING THE RODRESS OBTAINED {7 MILL 
eee 350 10 THAT ROUTINE. 
5620 9330149 O109%% STRAP: MOV SAVE RO : 
S521 033018 016600 c00002 MoV a P45) Bo ::GET TRAP ADDRESS 
Seo O330ee D6S740 TST (RO) 1 BBCKUP By 
St23 O3sdes 111000 MOVE (RO), RO ‘GET RIGHT BYTE OF TRAP 
Seay 933025 G0e3c0 ast RO POSITION FOR INDEXING 
5625 033030 016000 033050 HOY STRPADCRC),RO}HINOEX TO TABLE 
Seep 033034 00200 RTS RO 3 ROUTINE 
5638 
see ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
5631 033036 11846 STRAP2: MOV —«{ SP), -( SP) :iMOVE THE BC DOWN 
Sha O33045 O165e6 oo00m4 970002 MOY © 4¢SP5,2°SP) MOVE THE PSW DOWN 
5653 02304 O00dHe RTI ITRESTORE THE PSW 
5535 .SBTTL TRAP TABLE 
5637 S*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
cree f4BY THE “TRAP™ INSTRUCTION. 
| e640 ; ROUTINE 
Sé41 : #  . . #  esesce 
Ss42 033050 032036 $TRPAD: .WORD STRAP 
Se4s Da20s2 O3075e TYEE G:CALLeTVBE —TRABSL(O44QL) TTY TYBEQUT ROUTINE 
Ee4uy 032054 3121 STveOC iGALLsTYPOC  TRAPSB(IONMOe) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
Beus 023056 alive STYBOS i:CHLLSTYPOs TRAPS ACLDANOS) TYPE OCTAL NUMBER (NO LEROTN 
ceue Osscen O3le3e ETYPON iIGACCSTYPON  TRAPSUCLONNGN) TYPE SETAC NUMBER (aS BER cagT SaLe 
| cei? C3082 031420 STYPDS ::CALL=TYPDS  TRAP4S(1O4405) TYPE DECIMAL NUMBER (WITH SIGN) 
| Bead o3a0e4 oau7sa SGTSWR ;;CALL=GTSWR © TRAP+6(104408) GET SOFT-SWR SETTING 
| $681 933066 og1e44 SCKSWR ;;CALL=CKSWR © TRAP+7( 104407) TEST FOR CHANGE IN SOFT-SWR 
| §652 033070 O3e126 SROCHR ::CALL=ROCHR © TRAP+IO(104410) TTY TYPEIN CHARACTER ROUTINE 
ces2 033072 O20le2 SROLIN ::CALL=ROLIN  TRAP+I1(1O4411) TTY TYPEIN STRING ROUTINE 
| a SSAVREG I:CALL=SAVREG —TRAPFI@(1ONNI2) SAVE RO-RS ROUT] 
Bees 022076 Ose44e SRESREG :;CALL=RESREG TRAP+! 3(104413) RESTORE RO-RS ROUTINE 
| 5656 033100 27406 SDSL Y LICALLEDTSPLY. TRAPSI4CIONNIG) ROUTINE 10 TYPE ERROR MESSAGES 
eee? po0c32 STERM=. -STRPAD 
| $658 
| 
| 
j 
{ 





NO-i1-DCRID-A, ROY S/ tee” ORIVE EXERCISER "IACYL1 271655) 28-APR-76 17:04 PAGE 108 


DERIO. 319 


Ss73 


—-ONMU ECW 


ROP ites Tat Wt Tet Tee eal i 
Tull oo > o> 


AAA AA A AA a OL trove: 
~“ 


3 

=) 

@ 
BERBRRETS 
WIWIGIGICIGIGIG) 
ee eT ey eet ae 
woturunurr 
—ONOU£ ITU 


TRAP T 


oo 
= 


00000 
0080 


o00809 o0c000 











SES 0144 








LSBTTL SINGLE/DUAL PORT RHLI/RPO4/S/6 DRIVER (REV 1.0) 


PYRIGHT ( 976 
if GITAL Futon NT CORP. 
YNARD 734 


AUTHOR GS) + aun LACEY/CHUCK HESS 
ss RERKSSHSRASRTLSHSRESRAASLLSSAASSLSESSSELSSE SE LSESAS SLES FEL SESS FSSE 
; STORAGE FOR RPDS1, BEERI. RPER2, AND RPERZ ON AN ERROR “2” 


RPERRS = RPD 
 RPERRS+ 2 = RPER 
TRPERRS+4 = RPERS 
:RPERRS+S = RPERS 


RPERRS: .WORD 0,0,0,0 


; TABLE OF pris ACTIVE INDICATORS (ORVACT=8 8YTES) 
fie ACT=O0 IF ORIVE IS IOLE 
RVACT>O IF DRIVE IS ACTIVE WITH A COMMAND 
SDRVACT<O IF ORIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 
ORVACT: .BYTE Q ;ORIVE 0 
. i. & ;ORIVE 1 
BYTE @Q ;DRIVE 2 
-BYTE Q ;DRIVE 3 
BYTE QO ;DRIVE 4 
-SYTE Q sDRIVE § 
BYTE 9Q ;DRIVE & 
BYTE 0 ;ORIVE 7 
;TRELE OF PrLve STATUS INDICATORS (ORVSTA=S BYTES) 
V F ORIVE IS OFFLINE OR NONEXSITENT 


;ORVSTA=0 | 
:ORVSTADO IF DRIVE IS ONLINE 
;DRVETACO IF DRIVE IS UNSAFE 


DRYSTA: .SYTE OQ DRIVE 0 
BYTE Q sDRIVE } 
-BYTE Q :ORIVE 2 
-BYTE Q sORIVE 3 
-BYTE 9 sDORIVE 4 
-<BYTE Q ;DRIVE § 
-BYTE O ;DRIVE 6 
-BYTE 0: : DRIVE 7 


; TABLE OF DRIVE TYPES (DRVTYP=8 BYTES) 
;DRVTYP=0 IF ORIVE 12 we (ORVSTA=O, ALSO) 


TDRVTYPs-1 IF NOT RPO4S76 





y NG_A SEARCH CO vee C 
F THEIR REQU 


For 
HAT 


ORS 
ACTIVE ON THE DRIVE 
ROGRESS 


Br oaive DRIVE 


R THE I/0 
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‘DERID.919 SINGLE “DUAL PORT RH11/RPO4’S/6 DRIVER (REV 1.0) 
| 2.18 31 ORVTYP: .BYT R 
e-i8 S33i3g BS NTE 8 BRIE 9 
$218 O33134 990 BYTE 0 s DRIVE : 
2233 Raat Se B58 *BYT 5 i DRIVE 4 
572: 033137 600 “BYTE QO DRIVE S 
S722 033140 908 -BYTE 0 :DRIVE 6 
083 033141 306 ‘BYTE 0 DRIVE 7 
5725 : TABLE OF DUAL PORT INITIALIZATION INDICAT 
&? :DPINT=O IF INITIALIZATION IS NOT 
5 ? :DPINT<G IF INITIALIZATION 15 IN PROG 
5739 933142 000 DPINT: .BYT : sDRIVE 0 
S730 033143 550 “BYT :DRIVE 1 
S73! 033144 909 “BYTE 0” :DRIVE 2 
6732 933145 060 "BYTE 9 :DRIVE 3 
6723 033146 909 "BYTE QO !ORIVE 4 
5734 033147 050 "BYTE OQ :DRIVE 5 
5735 933150 909 BYTE 0 SORIVE 6 
736 033151 005 BYTE :DRIVE 7 
E739 ;TABLE OF PENDING DuaL PORT REQUESTS 
5739 =0 IF THAT A DUAL PORT REQUEST IS 
et . BERG <O IF THAT A DUAL PORT REQUEST IS 
> 
Erus 033152 coe DPROS: .8YTE 0 SDRIVE 0 
5743 033153 990 "BYTE 0 :ORIVE 1 
E744 93315 509 "BYTE :DRIVE 2 
E745 033155 909 "SYTE 0 DRIVE 3 
5746 9331 090 "BYTE OQ !ORIVE 4 
5747 033157 999 "BYTE OQ :ORTVE 5 
5748 933160 60 "BYTE 0 DRIVE & 
ee 03316 600 ‘SYTE 0 DRIVE ? 
¢ 
5751 sTRASSFER WAIT FLAG CTRNSUT=1 WORD) 
e755 sTHIS 1S AONE WORD buEUE- at WILL CONTAIN THE ADDRESS oF 
Soe “DPR” OF THE 1/0 OPERATION 
5755 033182 oco000 TRNSWT:. .WORD 0 
5757 : SEARCH Walt KEYS (SRCHWT=1 WORD) 
5758 THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF 
£759 : THE DRIVES THAT BRE FERFOR 
5760 ‘REQUEST THAT IS AT THE T EST 
cel EACH DRIVE IS ASSIGNED ONE arr. STARTING AT BITOO FOR DRIVE O. 
| 763 032164 990000 SRCHWT: .WORD 0 
| §S7e5 :RPO4/S/6 DRIVER ACTIVE FLAG (ACT DRV=1 BYTE) 
E7E6 sACTORV=0 IF DRIVER IS INACTIVE 
| £767 SACTDRV>O IF ORIVER IS ACTIVE 
| 
i 
| 
| 


oe ens = 














D2RIO.919 
acb8 033166 











$7°S 033187 


$782 033170 
71 


08 
S803 033210 


033212 


unanuna wn 
{OC COLO ED ED ED ED EO 
TUTU MU) 8 
mr OWOnNM 


033214 
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800 


000 


000308 


000000 


177777 













ACTORV: .BYTE 0 
3 SOFTWARE ant eeR en ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE) 
IF SOFTWARE TIMER ROUTINE IS INACTIVE 
PACTETROO IF SOFTWARE TIMER ROUTINE IS ACTIVE 
ACTSTR: .BYTE OQ 


; UNLOAD FLAG A to BYTES) 
;ULDFLG=9 IF NO UNLOAD COMMAND 








UCDFLO>O IF UNLOAD COMMAND TN PROGRESS 

SULDFLG<O IF UNLOAD COMMAND IN WAIT GUEUE 
ULDFLG: .BYTE 0 ;DRIVE 0 

“BYTE 0 SDRIVE 1 

‘BYTE 0 SDRIVE 2 

‘BYTE 0 :DRIVE 3 

‘BYTE 9 SDRIVE 4 

“BYTE 0 ;DRIVE 5 

‘BYTE 0 :DRIVE & 

‘BYTE 0 SDRIVE 7 





; LOOK AHEAD COUNT (LACNT=8 BYTES) 
;LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 






LACNT: ‘pyre 0 ;DRIVE 0 
-BYTE Q DRIVE 1 
BYTE OQ ;DRIVE 2 
BYTE Q ;DRIVE 3 
BYTE QO ;DRIVE 4 
BYTE OQ ;ORIVE 5 
BYTE Q ;ORIVE & 
BYTE 0 ;DRIVE 7 





; SAVE REGISTERS FLAG (SAVEFS =1 WORD) 
VEFG <O IF SAVE THE RHI /RPOW/ 6 GEGISTERS WHEN THE 
{OPERATION TS COMPLETED AS PER (DPB+! 
SA VEFG=0 IF SAVE THE RH11/RPO4/S/6 REGISTERS, AS PER 
;(DPB+14), AFTER AN ERROR. 


SAVEFG: .WORD 0 
; SEEK FLAG (SEEKFG=1 WORD) 
=0_IF_WHEN THE orx ADDRESS rh Lu IN THE WINDOW 
FOR A DATA TRANSFER START A SEARCH 
sEPEK GC O IF DATA TRANSFER WILL DO IMPLIED SEEKS, 
;DISREGARD THE WINDOW 
SEEKFG: .WORD 0 


-gheaaaas? TAALE (TIMER=8 WORDS) 
THIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 


. WORD 














TIMER: -1 ;DRIVE 0 








NO-11-DIRJO-A, 
DZRID. 919 


$823 033216 
5824 


$835 033234 


S853 033246 


S858 033250 
zern 033252 


5863 033256 
5866 033260 
S869 033262 


S872 03364 


SINGLE “DUAL 


000903 


176700 
000254 


000004 
001000 
000208 


oooocs 


003000 
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000240 





Fle 


WORD -1 sORIVE 1 
WORD -1 :DRIVE @ 
“WORD =] :DRIV 

“WORD -l :ORIVE 4 
WORD +I ZORIVE 5 
WORD -1 :DRIVE & 
WORD =I :DRIVE 7 


;DATA TRANSFER UNDERWAY pO (DTUW=1 ai 
W<O IF NO DATA TRANSFER UNDERW 


tDTUW=+N (WHERE N=0 TO n IMPLIES BATA TRANSFER UNDERWAY ON DRIVE N 


DTUW: .WORD -1 


PAT TES TOR Wee? TABLE (ATABIT=8 BYTES) 
TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES 
ATTENTION BIT 


ATABIT: .BYTE 1 ;ORIVE O 
-BYTE e@ ;DRIVE 1 
-BYTE 4 ;DRIVE 2 
-BYTE 10 ;ORIVE 3 
-BYTE 20 ;DRIVE 4 
-BYTE 40 ;DRIVE S 
-BYTE 100 ;ORIVE : 


-BYTE 200 DRIVE 7 


7 RPON/S “6 TO_RH11 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE) ALLOWED BEFORE 


;CALLING IT FATAL (MCPEMX=1 WORD) 
arenes WORD 3 


;STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPO4/S/6), 
;RPVEC (THE VECTOR ADDRESS (254)), AND: RPVEC+2 (THE SR LEVEL (5)). 


RPADR: .WORD 176700 
RPVEC: .WORD 254,5%3e. 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED TS 4 (MXLACT=1 WORD) 


MXLACT: .WORD 
;MAXIMUM HELTA DELAY TS 8 SECTORS (MXDLTA=1 WORD) | 


MXDLTA: .WORD 9.#64. 
;MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD ? 


MNDLTA: .WORD 2%64. 
;MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNOW=1 WORD) 


MXWNOW: .WORD 5 
;DEFINITIONS OF THE RH11/RPO4/S“& ADDRESS INDEXES 
RPCS1=0 











;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 90) 


NO-11-D2RID-A, 53 S/6 MULTI-DRIVE EXERCISER 
.019 INGLE “DUAL 


0332le 
033234 
177777 


033122 


033250 


MACY11 27(65S) 
PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


animate fg ot be INITIALIZATION CODE 

;AVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR 
;TO0_ THE PROPER STA ACH DRIVE. 

:NOTE: THIS ROUTINE CALLS DRVINT 


NOTE: THE 'P’ OR ’L* CLOCK MUST BE STARTED 
RPINIT: SAVRES 
MOV 
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;WORD COUNT REGISTER (NOT A DRIVE REG) 

;UNIBUS ADDRESS REGISTER (NOT A DRIVE R 

aoe SECTOR/TRACK GISTER te REGI TER SRIVE BES. 0S) 
CONTR Bot io cae Sen's i hk DRIVE RE 


fa ReclSten il (Deve “Oe, 
TTENTI UMMARY PSEUDO fects R _— REG. 04) 
; LOOK oe REGISTER (ORTVE REG. 07) 

DATA BUFFER REGISTER (NOT A DRIVE REG. ) 
:MAINTAINABILITY regtotet (DRIVE te 3) 
sDRIVE, TY PE REGISTER (DRIVE REG. 

ier IAL NUMBER REGISTER (DRIVE REG. 10) 

FSET REGISTER (DRIVE REG. 11) 

iDESTRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
; CURRENT CYLINDER ADDRESS Peaisien (DRIVE REG. 13) 

;ERROR Ri (DRIVE REG. 14) 






















TINE WILL Per oane WHICH RPO4/S/& DRIVES ARE 












PC,RPINIT 

















;SAVE RO - RS 
S.-( :SAVE THE PRESENT PROCESSOR STATUS 
#<5*32.)>,a8PS  :CHANGE THE PRIORITY TO 5 
CLROUE :CLEAR ALL REQ 
#RPERRS, R1 “FIRST ADDRESS TO BE CLEARED 
aSEEKFG, Re LAST ADDRESS TO BE CLEARED 
aT RS ARE WE DONE? 
BRANCH IF NO 
#OTUW, Re ‘LAST ADDRESS 
#-1, (R1)+ : INITIALI 
1,R2 : DONE? 


:LOOP IF NO 
:SET ALL DRIVES TO OFFLINE 


RPVEC,R3 ;SETUP THE RH11/RPO4/S’6 VECTOR 
#ISR, (R3)+ 

RPVEC+2, (3) 
RPADR. RY sFIRST ADDRESS OF RH11/RPO4 








MO-11-D2RJ0-A, 
DZRID.919 


au ae 


RPO4/S“6 MULTI-DRIVE EXERCISER 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


ues 


000207 


010546 
1050 


0& . 105061 
* 105061 


112761 


000040 000010 
033500 


033122 
177770 
000007 
177776 
033142 


041004 
033142 


177776 


033122 


000900 
o10ced 000010 
041004 


033122 
004000 


040324 


o00000 


000001 033132 


3$: 


4$: 
S$: 


6$: 


7$: 
8$: 


; DRIVE INTIS ROUTIN ROU 
ite ROUTINE Pe TERAINES IF A DRIVE EXIST AND IF IT IS 

RPO4W/S/6. IF IS, 
TOA “1". THEN’ Ma, 


; CALL 


4 
; 
; 
; 
; 
; 
; 


DRVINT: 





MACY11 27(655) 


my SET 
; INSURE 


- pgpcetecse tee 


RO, ORVINT 
4$ 


+3 

DRVSTACRI) 

#1C7,R1 

3$ 

#7, R1 

aePs 

DPINT(R1) 
SET. IE 

BpINTCAL 

a 

6$ 

(SP)+, J8PS 

PC 

TINE 
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MA N 
stent AIH D lve 0 


SINIT THE DRIVE 

be A’ wr SET OR PARITY ERROR 

;SET DRIVE: syaTs TO OFFLINE 
TO NEXT 


ps! WITH DRIVE 7 
;CLEAR THE PROCESSOR STATUS 

;WAITING FOR DRIVE TO SWITCH PORTS ” 
:BR_NOT WAITING 

SET INTERRUPT 

DRIVE SHI SWITCHED PORTS ? 


;G0_TO THe NEXT DRIVE 

CHECK NEXT DRIVE 

; RESTORE ie PROCESSOR STATUS 
sREST ome, RO RS 


A “READ- IN SPRESET™ Is ISSUED AND FMT22 
ARE CHECKED TO 
PR ape DEPENDING ON THEIR STATE, 


THEY ARE 
;DRVSTA IS SET TO THE PROPER CONDITION 


MOV #DRVNUM, RL 
MOV ADR, R4 

ISR RO, DRVINT 
RETURNI 

RETURNe 

MOV RS,-(SP) 

CLRB —— DRVSTACR1) 
CLRB = ORVTYP(R1) 
CLRB -—;ULDFLG(R1) 
MOV RI, RPCS2(R4) 
MOVB #111, RPCS1(RY 
BIT #BITL2, RPCS2( 
BEQ 
ISR PC, SET. IE 
CLRB  DRVSTA(R 

BIT #BIT11, RECSICRM)’ 
BEQ $ 

JSR RO,RD.RP 

RPDT 

8$ 

MOV (SP)+. RS 

MOVB #1, DRVTYP(R1) 


;DRIVE NUMBER TO R1 

; UNIBUS te OF RH11/RPO4/S/6 (RPCS1) 
CALLED BY A JSR 

ERROR OCCURRED (PARITY) 

:NORMAL RETURN 


;SAVE_RS 

START DRIVE STATUS AS OFFLINE 

: CLEAR Ly 3 ees Ui INDICATOR 

: CLEAR me NLOAD FLAG 

SELECT A VE 

309 A DRIVE “CLEAR COMMAND (8 SEIZE DRIVE) 
TENT DRIVE? 


NCH 
;G T_"IE” WITHOUT A “TRE” 
LEAVE THIS RO 
SET Brive STATUS a OFFLINE 


D 
READ THE DRIVE TYPE REG. 


;ERROR RETURN ADDRESS 
PUT DRIVE TYPE IN RS 
;SET RPOY INDICATOR 


SEQ 0149 














Saerene 


wi hee 
DZRJD. 019 





000121 


040500 


010000 
040500 


040324 


033236 
040324 
177777 
167077 


000001 


003720 
177777 


033132 
033132 


033132 


000016 


033122 


033122 


033214 
033142 


RPO4/S/6 MULTI-DRIVE EXERCISER 
SINGLE/DUAL PORT RH11/RPO4/S’6& DRIVER (REV 1.0) 


020020 
024020 | 


000002 
020021 


024021 


000004 
020022 


024922 
177777 
2S: 


4$: 


6$: 
7$: 
8S: 


REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 
: CALL 


MACY11 27(6S5) 


;EX 
_#121,-(SP) = = ;D0 A “READ-IN PRESET” 


RS ? CHECK 
g}c<BIT12!81708!81 797181 106) Re 
(RO)+ ; STEP OVER THE EPROR RETR 


Rl ;C 
#2000. , TIMER(RI)’ ;START SEC T 
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#20020,R5 STP BUNGLE PORT RPO4? 
#4020, RS i]s i "a bunt PORT RPO4? 
#2,DRVTYP(R1) $SET RPOS INDICATOR 

#20021 ,RS ‘SINGLE PORT RPOS ? 

eg iBR IF Y YES 

#24021,R5 UAL PORT RPOS ? 

$ :BR IF YES 









#4, DRVTYP(R1)  3SET RPOG INDICATOR 
#20022, RS ;SI NGLE JEQRT RPOG ? 
#e4022, RS ‘DUAL PORT RPO6 ? 








Y 
permite SET INDICATOR TO *OTHER’ 








RO, WRT. RP 






#81T12,-(SP) ;SET FMT22=1 
RO, WRT. RP 











RO,RO.RP ;READ RPDS! 









(SP)+,RS ;AND SAVE IT IN RS 

4 BRANCH IF ATA=O 
ATABIT(R1), RPAS (RS) -CLEAR AT TENTION BIT 
RO, RD.RP IND OUT WHY ATA 









(SP)+ 15 TT UNSAFE? 
#t-1, DRVSTACR1) ;SET UNSAFE INDICATOR. 
bS tEXIT 







MOL ore. DRY, AND VV 


F MOL, DPR, DRY, OR VV IS CLEAR 
#1,DRVSTA(RL)  :3SET DRIVE eratus TO ONLINE 












; 


NGE INDEX eo WORDS 


I 1 
#-1, DPINT(RL) SET PORT INITIALIZE INIDICATOR 
(SP}+, RS ; RESTORE RS 













NO-11-DZRID-A, 
DZRIO.019 


013746 








3 
012762 





177776 
033254 


000001 


000016 


033250 
033122 


033170 


033142 


033500 


033122 
033152 


000010 
O41446 


000103 
038112 
034330 
120000 
035440 
O41446 
060100 
041004 
033122 


140000 
033132 


100002 
110000 


177776 
033166 


ooo0d2 
033170 


c00016 


000016 


000016 
000016 


RPO4/S/’6 MULTI-DRIVE EXERCISER 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


RPOY: 


1$: 


es: 


3$: 
4$: 
Ss: 


6S: 


7$: 
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JSR 
PNTADR 


RETURNI 
RETURNe 





SEQ 0151 


























RO, J#RPOY sCALL THE RPO4/S/6 DRIVER 
; ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK 
“RETURN HERE IF QUEUE IS 
;RETUR N HERE IF REQUEST Is th QUEUE OR THERE 
:IS AN ERROR CONDITION 
aePS,-(SP) ; SAVE THE CALLING STATUS 
RPVEC+2,aPS § :DON’T ALLOW ANY RPOH/5/6 INTERRUPTS 
#1, ACTDRV 36) “ACTIVE DRIVER” FLAG 
(RO) Re ‘PICKUP THE DRIVE PARAMETER BLOCK POINTER 
16(R2) *CLEAR THE STATUS/ERROR INDICATOR 
(Re) RL “PICKUP THE DRIVE NUMBER 
RPAD: ;UNIBUS ADDRESS OF RPCS1 
BRVSTACRI) -CHECK DRIVES STATUS 
*BRANCH IF ONLIN 
ULDFLG(R1) su Ono COMMAND IN QUEUE? 
DPINT(R1) : TRYING TO INIT THE DRIVE 
RO, DRVINT :60_ INT. THE DRIVE 
DRYSTA(R1) 15 DRIVE STATUS ONLINE? 













DPRQS(R1) s OUTSTANDING PORT REQUEST FOR THE DRIVE ? 
R1,RPCS2(R4) :SELECT THE DRIVE 

RO, DRVQUE sPUT THIS § REQUEST IN QUEUE 

#103,2(R2) HE BOF Te RE REQ. FOR AN UNLOAD? 
#-1,ULDFLG(R1) :SET THE “UNLOAD IN QUEUE™ FLAG 
DRVACT(RI) :1S THIS DRIVE ACTIVE? 








rt} -BR IF Y 
PC, CPT -CALL THE OPTIMIZER 

HBITISIBITI3, 16(R2) SET THE “UNLOAD IN QUEUE” ERROR FLAG 
PC,CI7 *GO HANDLE THE PARITY ERROR 

























RO, DRVQUE PUT REQUEST. IN QUEUE 
;QUEUE IS FULL 

#BITO6,(R4) 1S ‘IE’ SeT ALREADY ? 

: ;BR_IF IT 
C,3ET.IE :SET INTERRUPT 
3 SRETURN, REQUEST IN QUEUE 
RVSTA(RL) E F  DRIV OFFLINE OR UNSAFE 
eBITIS#BITIY, rocks sSET OFFLINE ERROR INDICATOR 
DRVTYP(RI) ;SEE LF OFFLINE OR NONEXISTENT 





ag OFFLINE 
agIT15!B170L, 16¢K2) rirEpoRT DRIVE NONEXISTENT 
#BITIS!BIT12,16(R2) ;DRIVE IS UNSAFE 












MO-11-DZRJD-A, 
DERID. 019 


6093 
phe 
6096 
6097 
6098 


104413 


B18 880461 


‘5 
B 


OOO TRE Be PET THT HESS Ty mem ewe NS TSR SERS 
Hh LOMO DOVE CPO C00 MOPUTE COCO OUT Ebru ODD VRE oto 


03 
034325 


eee 


pembemlealealeslegleslealealeslesleglealeslealealealcalealoalealeslealealeslesleslealealealsalealealtalealesleslealesleslealealcalealealeal ed 


034530 





033166 
177776 


177776 
033236 
041522 
010000 
000100 
033500 
033122 
O41S44 
140000 
033122 
110000 
009111 
040500 
004000 
000150 
035024 
033234 
033212 
035774 


034610 


RPO4/S/6 MULTI-DRIVE EXERCISER 
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033164 


000012 
000012 


000016 


009016 


o0000e 








MACY11 heat 


gs: RESREG 
TST (apo+ 
B 10 

9$: RESREG 

ids: TST (RO)+ 
CLRB ACTDRV 
MOV (SP)+,aePS 
RTS RO 


s OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 


CALL 
: MOV #ORVNUM, R1 ;DRIVE NUMBER TO R1 
: JSR PC, OPT :SETUP A COMMAND 
SPT: § SAVREG ;SAVE RO - RS 
MOV -(SP) -SAVE PROC. STATUS 
BICB ATABIT(RL),SRC CHWT “CLEAR "SE“°CH WAIT" KEY 
JSR PC, GETREG -GET “DPB” POINTER oF REQUEST 
TST s1S THERE A REQUEST IN QUEUE? 
BEQ 7§ -BR TO EXI 
BIT #81712, RPDSI(R4)’ IS MOL STILL ot ? 
BEQ :BR IF NOT 
BIT #8176, RPDS1(R4) i1S VV SET ? 
BNE R IF IT IS 
QS: ISR RO, DRVINT SEE IF DRIVE STILL ONLINE ? 
BR <7 “PARITY OR *DVA’ NOT SET 
10$: TSTB DRVSTACRI) $15 OR IVE ONL INE?" 
=> ee. 
JSR QUE NO--REMOVE REQUF'ST FROM QUEUE 
MOV PE, POPOUE 1ecR) -SET OFFLINE STATUS/ERROR INDICATOR 
TSTB  DRVSTACRI) IS DRIVE UNSAFE ? 
BPL 8$ -BR TO EXIT IF NOT 
HOV WGITISIBITI2, 16(Re) ;SET UNSAFE STATUS/ERROR INDICATOR 
1$: MOV #111,-(SP) LOAD COMMAND ONTO THE STACK 
ISR O,WRT.RP . “LOAD THE REGISTER 
RPCS1 *REGISTER INCREMENT 
6S : ERRO RE TURN R 
BIT #BIT11, (84) sDRIVE A VAILABLE ? 
BEQ R IF NOT 
CHP #150, 2(R2) 15, THE REQUEST FOR 1/0? 
SR PC,CI4 ca COMMAND INITIATOR 
2S: TST OTUW *DATA TRANSFER UNDERWAY? 
BGE 4 YES--GO START A SEARCH 
TST SEEKFG :DO IMPLIED SEEKS? 
BMI . pty ; YES~~-BRA 
ISR RO,LA *NO--DO LOOK AHEAD 
BR 83 * RETURN HERE ON'A PARITY ERROR 
BR 4g GO START H 
3S: 3 pC,CIl START A paTa TRANSFER 
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TORE 


Peres pea la 


FRESTORE RO - RS 
CORRECT THE RETURN ADDRESS 
CLEAR "ACTIVE DRIVER” FLAG 
RETURN “PS” TO USER LEVEL 
RETURN TO CALLER 
















NO-11-O02RJD-A, 
DZRIO.919 








ul 
~ 
o 
£ 
in 
3 


O34SSe Ole763 923420 033214 


O34S74° 004737 041004 


Gow Verulecroee 
oO 
Gq 
<£ 
Bt 
~ 
oO 
oO 
— 
Oo 
fo 


uo 
~ 


034614 010237 033162 
010293 

013704 033250 
000010 


O34632 062703 000004 
034636 062704 000002 


O34650 004037 o40500 
O& 
004037 040500 
000 


7 
O3467e Qlse4%6 o00002 
034676 004037 040500 
000000 


en ee es es hs ee be be be be ae Bae be he Be 2 be Bo bo be 2 b+ 2 fs hs bs fae pan fw fe pe 
ifeteWitibetatt Pa At ittet asphalt Pa TN ete ATES Att Att 
QoQ 
@ 
£ 
fo 
o 
oO 
— 
oOo 
_— 
o 
<£ 


btaltpdealsaleslegtegleplesloalealeglealeslealegl cals alisleglealealealealealeslealealtaleals slags alislsaleslestsaleal eal sal saleale a 


034706 010137 033234 


wo 
w 
oO 
iG) 
£ 
eles 
ORE 
oO 
Gq 
uw 
< 
— 
oO 


paar 004037 040500 


RPOW/S/6 MULTI-DRIVE EXERCISER 
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6147 ese eG 034716 4$: 
6149 O34S4O0 112761 177777 033152 5§: 


4 
O34S6e 9 004737 035440 6$: 
0345 032714 000100 78: 


O34690 912637 177776 8$: 


034610 004737 041544 Cll: 


0347 
pao d8 013704 033250 CI3: 


MACY11 2765) 


M 
RESREG 
RTS 





PC,CI3 
8$ 


#-1, DPROS(R1) 


R1,R3 


R CON 
810000. , TIMER (R} “START 10 SEC TIMER 


Wel T06, (R4) 
gs 


C,SET.IE 
CSAS. aePS 


PC 


;COMMAND INITIATOR 
: CALL 


#DRVNUM, R1 
#DPB, R2 
PC, ci? 


PC, POPQUE 
Re, » TRNSWT 


RP 
Ri Rptes (RH) 


(Ra) - (SP) 
O,WRT.R 


acre) -(SP) 
WRT. RP 


R1, DTUW 
cis 


4 
1etR2),-(SP 
RO, WRT. RP 


28-APR-76 17:04 PAGE 117. | : SEQ 0153 


;LOAD “COMMAND+GO", “AL78A16", AND “PSEL” 
;SET “DATA TRANSFER UNDERWAY” 


; DESIRED siaeiears ADDRESS 








;START A SEARCH 

G0 TO THE EXIT 

:SET PORT REQUEST INDICATOR 

SET UP_ TO ADDRESS WORDS 
VERT_TO WORD INDEX 





PROCESS THE PARITY ERROR 
: SEE F set ALREADY SET 


;SE WITHOUT A “TRE” 
RESTORE PROC. STATUS 
RESTORE RO - RS 


;DRIVE NUMBER 
ADDRESS OF DPB 
C1? et CI1,CI3, OR CI4 


:W 

:CII=DATA TRANSFER 

;CI2=SEARCH REQUESTED BY DATA XFER 
:CI4=NOT DATA TRANSFER 


ee REQUEST FROM “DRIVES WAIT” QUEUE 
PUT REQ. IN es WAIT QUEUE 
‘DPR ADDRESS TO R3 
:RPCS1 ete 
SELECT DRIVE 
;DESIRED WORD COUNT 
sRPId C ADDRESS 
;LOAD WORD COUN 
LOAD BUFFER RODRESS 
sLOAD SECTOR AND TRACK 
THE LOAD(WRITE) ROUTINE 
HINEX OF realy ER TO LOAD 
;<RROR RETURN ADDRESS 
;LOAD CYLINDER ADDRESS 








;RPCS1 ADDRESS 
SELECT DRIVE 














6201 


p508 


6204 
6205 
06 


fororore 


Oo or rr 
PSST a eet ttt 


MO-11-D2RJD-A, 
DZRIO.019 








035440 


168903 


600010 
33264 
oco026 
tell 
040500 
000131 
049500 
033236 
033250 
000010 
000002 
000131 


000019 
040500 


000105 


000012 
040560 


000115 
040324 


000091 
040500 


000107 
000117 
000103 
000001 
03312e 
000001 


040500 


000001 


033164 


033112 
033170 


RPO4/S/6 MULTI-DRIVE EXERCISER 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


1S: 


cl4: 


‘1S: 


es: 


3$: 


4$: 








MACY11 27(655) 





10(Re2) ,R 
MXWNDW) R 


1 
#22. .R3 

R3, -(SP) 
1i{Re), 1 (SP) 
O,WRT!RP 


#131,-(SP) 
RO, WRT. RP 


RPA 
R1 Brees (RY) 
e(fi) BS 


10(R2),-(SP) 
20, WRT; RP 


es 
#105,R3 
RO, W 
CI6 
#115,R3 
RO,RD.RP 


1(R2), (SP) 
RO, WRT.RP 


Clb 
#107,R3 
CIé 

#117,R3 


8303,R3 

#1, DRVACT(R1) 
DRVSTA(R1) 

#1, OLbFLG(RL) 
R3, -(SP) 

RO; WRT. RP. 


12(R2),-{SP) . 
WRT: RP 
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;PICKUP SECTOR ADDRESS 


: BACKUP 


;COMBINE THE sd a SECTCR WITH 


: THE DESIRED TRACK 
: LOAD pana TRACK & SECTOR 


;START A SEARCH 


. ATABIT(R1), SRCHNT 
cls. 


;SET “SEARCH WAIT” KEY 


;RPCS1_ ADDRESS 
SELECT DRIVE 
He tr a se REQUESTED COMMAND 


; BRAN 
; LOAD 


HIE Ne CH COMMAND? 
DESIRED TRACK & SECTOR 


;GO LOAD CYLINDER 
1S IT A SEEK COMMAND 


ANCH 
sPOAD 


DESIRED CYLINDER 


315 IT . “OFFSET” COMMAND? 


MERGE THE OFFSET VALUE INTO RPOF 


BUT DON’T CHANGE THE UPPER 


;BYTE 


WHEN LOADING THE 


REGISTER (RPOF) 


;G0 ST 
31S IT 
: BRANCH 
31S IT 
; BRANCH 
:1S IT 


ART THE COMMAND 
A gear sBRATE™ COMMAND? 


A RETURN TO CENTER? 
IF YES 
AN “UNLOAD” COMMAND? 


; eet TH IF _NO 


: START 


THE DRIVE ACTIVE PRD ICSTOR 


THE “UNLOAD” COMMAND 


Y MAX. SEARCH FOR I/0 WINDOW 


MD-11-DZRJO-A, RPOW/S/6 MULTI-DRIVE EXERCISER 
DZRJD.019 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


000143 
040324 


000001 
040500 


000141 
o0o006 
000010 


000011 
040324 


035319 
ooo0ce 


000145. 


040500 


041544 
000200 
033210 
040666 


001750 
000001 


040500 


010000 


104000 
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;LQOP=-HORE_T 


: BRANCH 
: LOAD THE. COMMAND 


 GREMOVE REQ. FROM QUEUE 
; THE “DONE” 
; SAVE THE _RH11/RPO4/S/6 REGISTERS? 


YES--GO SAVE THE REGISTERS 
RETURN TO USER 


<DWuU 
zapDm 
2D 


Ri 
#1000. , TIMER(R1) 
iRET THE DRIVE ACTIVE 
LOAD THE COMMAND 


cIs 
wBIT1e,RPCSECRY) 
cis YES 

Af 78 ANYTHING IN QUEUE ” 

WOITIS?BITI1, 16cR2) ;SET "PARITY" ERROR INDICATOR 















;RETURN TO USER 

:1S IT A “SET FORMAT” COMMAND? 
;BRANCH IF NO 

READ THE OFFSET REGISTER 









:COMBINE “FMT22","ECI", AND “HCI” 
*LOAD “FMT22", “ECI", AND/OR “HCI”. 












318 IT A FN REGISTER” COMMAND? 
BRANCH IF N 

sPOINTS TO 1ST were OF WHERE 
;10 PUT_THE REGISTER(S) 

INIT. THE INDEX FOR. THE FIRST REG. 
; INDEX OF LAST REG. TO MOVE 

;READ RPO4 E76 REGISTER 

INDEX OF REG. TO READ 


;GET THE CONTENTS OF RH11/RPO4/S/6 REG. 
LAST REG. BEEN READ? 

CET OUT 

: INCREASE PS INDEX BY 2 
















:1S IT Ae rere DRIVE" COMMAND? 

























;SET A ONE SECOND TIMER 








TURN TO THE USER 


;DRIVE NON-EXISTENT ? 
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SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 





DO4737 O406E5 JSR PC, SVRHL1 560 SAVE THE RHi1/RPO4/S/6 REGISTERS 
Oie746 00111 CI7B: MOV sill = (5B) :D0 A “DRIVE CLEAR 
904027 949500 JSR RO,WAT.R 
es RPCS! 
238 041426 JSR PC, EMPTYQ sEMPTY THE QUEUE 
105061 033170 CLRB_ Ss ULOFLG(R1) CLEAR THE UNLOAD IN QUEUE FLAG 
105061 933112 écRB DPVAET (RD) RIVE IS IDLE 
$2013? 033234 CMP R1,OTUW !IF THIS DRIVE HAD AN 1/0 REQUEST 
301005 BNE 1$ IN PROGRESS CLEAR ALL OF THE FLAGS 
005037 033162 CL TRNSWT 
512737 17777? «033234 MOV 8-1, OTUW 
006207 1$: RTS PC 
104412 CI: SAVREG SAVE RO - RS 
gerbe 019000 oo0010 BIT eSIT12,RPCS2(R4)" -IS *NED’ SET ? 
1082 BNE 1$ :BR IF YES 
005001 CL Ri 
095003 CL R3 
105761 033112 18: TSTB = DRVACT(R1) sDRIVE ACTIVE? 
001443 BEQ NCH F NO 
013702 923162 MOV TRNSWT, Re ISeET THE “TRANSFER WAIT” QUEUE 
9251327 033234 CMP R1, OTUW :DID THIS ORE HAVE AN I/O IN PROGRESS? 
051472 BEO H IF Y 
004727 o41S22 JSR PC, GETREQ 'GET THE DPB POINTER 
005752 23: 157 Re :QUEUE ENTRY FOR DRIVE ” 
091415 BEG 4§ :BR IF NOT 
o3e754 o19000 coco10 BIT eB8ITL2,RPCS2(R4)’ :’NED’ SET ? 
o014 BEQ 33 -BR IF NOT 
012762 100002 o00016 MOV WEITIS!BITOL,16(R2) :SET "DRIVE NON-EALSTENT’ INDICATOR 
000405 BR 4g - CONTINUE 
Ole7be i0ec0d o0o01e 3s: MOV #BITIS'BITIO, 16(R2) -SET “NON-CLEARABLE PARITY” ERROR INDICATO 
004737 O40656 ISR VRH ave RHI /RPO4Y/5/& REGISTERS 
012783 177777 033214 4S: MOV #-1 TIMER(R3) :B10P 
105061 633112 CLR8 = DRVACT(R1) : SET “DRE VE ACTIVE" TO IDLE 
52. de01 37 033234 chp R1, OTUW 1S THIS, DRIVE SETUP FOR A TRANSFER 
012737 177777 033234 MOV #-1, OTUW PRESET noe INDICATOR 
905037 033162 CLR TRN NSMT CLEAR THE TRANSEER QUEUE 
105061 033170 S$: €LRB  ULDFLG ;CLEAR UNLOAD F 
032764 910000 oo0o10 SIT NaTTis. Rbes2cR4) "NED? 
901021 - BNE Le -BA IF IF YES 
005201 INC RI :MOVE TO THE NEXT DRIVE 
062703 oo0002 ADD #2,R3 
042701 177770 BIC at07,R1 
CO1316 BNE 1$ ;BRANCH IF MORE DRIVES 
012737 177777 023234 MOY #-1, OTUW "NO DATA TRANSFERS UNDER 
605037 033162 CLR TRNSWT :CLEAR THE TRANSFER cart ee 
! 004737 041350 ISR Pc, CLROUE :CLEAR ALL OF THE REGU EST 
012764 900046 ococolo0 MOV w8iTOS,RPCS2(R4)’;00 A MASSBUS IN 
p00406 BR 7§ s CONT TINUE 
004737 O41426 6$: JSR PC, EMPTY THE DRIVE” S QUEUE 
105061 033122 : cLRB) = ORVSTACRI) ist “Daly FFLINE_ 
| 1 60 106061 033132 €LRB = ORVTYPC(R1) CLEAR THE DRIVE TYPE “INDICATOR 
| 6362 036764 004737 041004 73: ISR PC, SET. IE ISET "IE" WITHOUT “TRE™ 
j 
| 








RPO4/S/6 MULTI-DRIVE EXERCISER 
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033250 
005919 
040324 


Cod0le 


033209 
033208 


- pocore 
03 


000340 


040324 


CO2600 
033269 


033262 
033200 


035440 


00000: 


033250 
033¢34 


036176 
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REG . sRESTORE RO - RS 
Ree Ae. SM 
sLOOK ABEAD ROUTINE 
> CALL 
: MOV #ORVNUM, RI :DRIVE NUMBER 
: MOV #0°B, Re “POINT TO DP 
: ISR RO,LA G0 CHECK THe WINDOW 
: RETURN ERROR RET 
: RETURNe :START A CERRCH 
; RETURNS :START A DATA TRANSFER 
LA MOV RPADR, RY :GET RPCS1'S ADDRESS 
MOV RI, RPCS2(RY) ‘SELECT DRIVE 
ISR RO: RD.RP *REQD CURRENT CYLINDER 
43 sERROR-RETURN ADDRESS 
CMP (SP)+,12¢R2) TS CURRENT CYLINDER=DESIRED 
sCVLL NDER? 
BNE 33 “EXIT IF NO 
INCB —LACNT‘R1) INC RENENT THE LOOK AHEAD COUNT 
€MPB  =s LACNT(RI) ,MXLACT’ EXCEED MA 
BGT 2 sBRANCH IF YES 
MOVE !0(R2),R3 :GET DESIRED SECTOR RODRESS AND 
Swag sé T. BY 64--ALIGN WITH 
BSR R3 ‘SDK AHEAD REGISTER 
MOV aa aees sPRIORITY LEVEL "7" 
ISR RO, RG. *READ LOOK AHEAD REGISTER 
a 
$B (SP)+,R3 ;CALCULATE THE DELTA 
ADD #(22.%64.>,83  ;MOKE THE DELTA POSITIVE 
18: CMP MXDLTA, RS :CHECK THE DELTA TO SE 
BLT 3 IF IT IS WITHIN THE 
CMP MNDLTA,R3 SWINDOW=--IF YES, ZERO 
8GE LOOK AHEAD SOUNT 
23: CLR LRCNT (RI) ?AND TAKE THE 1/0 AIT 
(RO) 
38: 1ST iRO)+ sD ST THE RETURN ADDRESS 
4S: JSR PC,CI7 =PROCESS THE ERROR 
ss: RTS. RO : RETURN 
s INTERRUPT SERVICE ROUTINE 
ISR: MOVB #1,ACTDRY ;SET “ACTIVE DRIVER” FLAG 
SAVREG y 
MOV RPADR, RY ‘ADDRESS. C CF RHSCS1 
MOY .- DTUW,RI sGET “DATA TRA NEPER UNDERWAY" INDICATOR 
ae :BRANCH IF NO DATA TRANSFER UNDERWAY 
ISR PC, TD CALL TRANSFER DONE 













































DIRIO.919 


MO-11-D2RJ0-A, 


005062 
116262 
Olbebe 
Olb2e6e 


036460 
033166 


033112 
177777 


177777 


034330 
000113 


100109 
041426 


Ranttt 
049111 
090113 


001404 
o0ccte 
o000c3 
O4144E 
000016 


060010 


033234 
033214 


O00C1& 


000916 


000024 
000524 


000027 
000034 
000032 
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35: 


; TRANSFER DONE ROUTINE 


15: 


es: 
3s: 


FORCED WRITE CHECK ROUTINE 
We: 


1S: 


CI? 
ROL (SP)+ 

BMI 3$ :BR IF YES 

TST SAVEFG :SAVE THE -PHLL/RPON/5/6 REGISTERS? 

BPL 1S. : BRANCH 

JSR PC, SVRH11 NES SAVE THE REGISTERS 

JSR  —s- PC WC SEE IF WRITE CHECK TO BE PUT IN QUEUE 
JSR  —~ PC, GETREO :GET DPB POINTER 

TST R2 :ENTRY FOR ORRIVE 

BEQ 23 :BR IF NOT 

JSR PC, OPT :CALL OPTIMIZE 

BR :CHECK OTHER DRIVES 

MOV #113, (RY) SRELEASE TE DRIVE 

mos *CHECK FOR OTHER DRIVES 

BIS aSIT1Si81708, 16(R2) ;SET DATA ERROR FLAG 

ISR PC EMPTY sEMPTY THE enone S WAIT" QUEUE 

JSR PC’ SVRH11 :SAVE T RH11/RPO4/S/6 REGISTERS 

MOV #40111, (RY ‘ISSUE A “DRIVE CLEAR 

MOV $113, (RY) ; ISSUE A RELEASE TO THE DRIVE 

BR sc *CHECK FOR OTHER DRIVES 
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Ree OBR cc | seer SPECIAL CONDITIONS 

SREG : eet op ge - ke 
CLRB.ACTDRY 'CLEAR "ACTIVE DRIVER” FLAG 
RTI RETURN 


CLRB ORVACT(R}) ; SET DRIVE ACTIVE a ald TO IDLE 
= Seiahiags NO DATA TRANSFERS UNDERWA 

ey ne ;CANCEL TIMEOUT 

MOV TRNSWT , Re ;GET “DPB” ADDRESS FROM THE 

CLR TRNSWT ; TRANSFER WAIT QUEUE--CLEAR QUEUE 
BIS #51707, 16(Re) T_ DONE 


MOV Ri, RECSE (RY) SELECT THE DRIVE 
JSR RO'RD.R : TRANSFER ERROR( TRE=1)? 


TST BUTOCK Be SE Not WRITE CHECKS ” 


CHP #2, SCODE(R2) SL AST OPERATION WRITE DATA ? 

CHEE 83, SCODE(R2) sLAST OPERATION WRITE HEADER 8 DATA ? 
JSR RO, ORVQUE BUT THE OPERATION IN THE QUEUE 

BR es ; QUEUE TS FULL 


C 16(R2) “CLEAR "DONE’ BIT IN DPB 
MOY SRPCS1 (R2) SPREVO(Re) SAVE. HRITE OPERATION CODE 
MOV SCYL(Re), SPREVES> (RD) »SAVE CYLINDER 

MOV SSeC (RS) SPREVA(Re) SAVE Ec TbR AND TRACK ADDRESSES 
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Dz2RI0.019 SINGLE/DUAL PORT RH11/RPO4/S/& DRIVER (REV 1.0) 
r4 0 0 C n2 SCQDE(R2) . sCHANGE WRITE TO CHECK 
ve eS | 138 cS duet 888 Se Bice 820, $COMND(R2) :CHANGE DRIVER CODE TO WRITE CHECK 
000016 900002 BIS8 #10; SCOMND(Re) FINISH CHANGING CODE TO WRITE CHECK 
pins 3 Rais 7 23: RTS PC EXIT 
a 


$476 ;SPECIAL CONDITION ROUTINE 


S478 036460 116403 000016 =» SC: MOVE. RPAS(RY),R3_ READ." 
473 Gab4ey Gol0Le BNE 2 IBRANCH TF ANY "ATA? SITS SET 
5480 O36456 040324 JSR «RO, RO. RP ZREAD CONTROL AND STATUS REGISTER 
g481 O36472 RPCS1 
48> 036474 | cs 
6483 036476 105126 ROL8 = (SP)+ ;1$ “IE"=1? 
6484 036500 100403 BMI «15 :YES, NO DRIVES 10 CHECK 
485 036502 104001 ERROR 1 ;REPORT AN ILLEGAL INTERRUPT 
puge 036509 004727 041004 Jk FSET. TE SET INTERRUPT ENABLE 


o 
un 
b= 
fu 
<£ 
fue 
mm 
om 
-4 
w 


: LR = (SP) {PROCESS ALL DRIVES THAT HAVE 
6499 036516 012703 000001 MOV #1°R3 ; s 


6481 036522 905091 CLR RI 

6492 036524 930316 SC3: BIT R3, (SP) ;ATA=1? 

6483 036526 001005 BNE = SS : YES--BRANCH 

6494 936530 005201 Sc4: INC RI !MOVE TO THE NEXT DRIVE 

6495 026532 106303 ASLB sé 

6496 936534 001373 BNE S¢3 ;BRANCH IE NORE TO CHECK? 
6437 036536 005726 TST (SP)+ CLEAN 0 THE STACK 

6498 36540 000207 RTS PC : RETURN * USER 

6499 036542 105761 033142 cS: TST DPINT(R1) INITIALIZING THE DRIVE ° 

6500 o3654§ 001402 BEQ 1$ BR IF NOT 

6501 03€550 000137 037436 INP SC13_ :PROCESS THE DRIVE 

6502 036554 105761 033152 1S: TST8 © DPRQS(R1) ;PORT REQUEST OUTSTANDING 7 
6503 O36550 001402 BEQ :BR IF 

6504 | 900137 037436 INP C13 : START THE OUTSTANDING COMMAND 
6505 036565 105761 033122 2s: TSTB = DRVSTALR1) :CHECK THE DRIVE STATUS 

6506 036572 003025 BGT Ey BRANCH IF ONL 

6507 036574 105761 033170 TSTB —_—-ULDFLG(R1) UNLOAD IN PROGRESS? 

£508 036600 Oo2422 i BLE =e BRANCH IF NOT 

6509 036602 Gc4757? o41522 ISR PC, GETREQ GET DPB POINTER 

6510 O36608 OO4727 O4oce6 JSR PC'SVF +11 :SAVE THE RHI 1/RPON/5/6 REGISTERS 
6511 036612 004737 037366 JSR PC; SC.2 ;SAVE RPDS1, RPERI, RPER2, AN ND RPER3 
6512 ;ALSO_DO A ORIVE INIT CORVINT 
6513 O36616 105761 033122 TSTB = ORVSTALR1) :DID DRIVE COME ONLINE? 

6514 036622 003416 BLE ct :NO---BRANCH 

6515 036624 032737 O40000 033102 BIT #BITI4,RPERRS :WAS THERE AN ERROR? 

6516 036632 001002 BNE 3$ sBR IF ERROR 

6517 036634 000127 037276 IMP C11 :NO_ERRO 

£518 O36640 13705 033104 3s: MOV RPERRS+2,RS YES -- BrcKUP RPERI AND 

£519 036644 000476 ae A :G0 PROCESS THE ERROR 

6520 O36646 105761 023112 cS: TSTB = ORVACT(R1) sDRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ? 
£521 O36652 001027 BNE BR IF EITH 

bee 


3 sALSO DO 
£524 036660 105761 033142 6$: TSTB DPINT(R1) TRYING TO 0 INIT T THE DRIVE ? 





| 

| 

IT 

| oce 036654 004737 037366 JSR PC,SCle ; SAVE Ae ee RPER2, AND RPERS 
| 





» RPO4/S/6 MULTI-ORIVE EXERCISER 
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033122 
020000 


000113 
040500 


177777 


041522 
009010 
040324 


0331le 
109210 
040324 


o4o600 


100240 
040324 


77777 
04065 
110000 000016 





MACY11 27(655) 


RS i‘ WAS re CONDITION =1? 

1$ ; BRAN CH I 

ake sANY THING IN QUEUE ? 
aSiTIS!BITO7!BITHE. 16(R2) ; INFORM USER OF ERROR 
RO,RO.RP ;READ DRIVE STATUS REG. #1 


es 
#-1, DRVSTA(R1) 
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SC4 BR IF YES, CHECK ON MORE ORIVES 
BEVSTACRI) - $CHECK ON DRIVE’S STATUS 


WBITI3,RPERRS+6 : SADDRESS PLUG CHANGED ” 
9g ‘BR IF ¥ 



















#113, -<SP) ;RELEA gE COMMAND 
RO, WAT. RP ‘WRITE THE COMMAND INTO RPCS! 
‘REGISTER INDEX 
:PARITY EXIT ADDRESS 
(SP),RS ‘PICKUP (RPAS) BEFORE THE ERROR CALL 
2 :REPORT THE UNEX PECTED ATTENTION 
Sc4 ?GO CHECK FOR MORE ATA’S 








5 ;REPORT THE ADDRESS PLUG CHANGE 
Sc4 ;CHECK FOR MORE DRIVES 

R1 ;SETUP_TO i WORDS 

#-1, TIMER(R1) ; STOP THE TIMER 

Ri RESTORE THE DRIVE ADDRESS 

PC, GETREQ :GET THE DPB POINTER FROM THE QuEUE 
R1,RPCS2(R4) SELECT DRIVE 

RO,RO.RP READ THE RPO4’S STATUS REG. 














(SP) RS 7 AND PUT IT IN RS 
(SP)+ WAS im on ERROR? 
1$ BR 4 ERR 

DRVACT(R1) K ORI E'S STA 






TE 
Cll eR tf DRIVE ACTIVE WITH ORDER 
BSITIS!BITO7!BITHS, 16(Re) ;INFORM USER OF ERROR RECOVER COMPLETION 


RO,RO.RP ;READ ERROR REGISTER #1 













(SP)+,R5 sAND SAVE IT IN RS 
PC, SVRHI1 : SAVE RHI /RPOH/S/5_ REGISTERS 
all, =(SP) ?ISSUE A DRIVE CLEAR 

















(SP),RS SAVE RPOS1 IN RS 
(SP)4+ "ERR" =]? 
BR F NQ--UNSAFE CLEARED 
RIVE I 


C,SVRH11 “SAVE RH11/RPO4/S/6 REGISTERS 
wBITIS!BIT12, 16(R2) ; INFORM USER OF UNSAFE ERROR 



























MO-11-D2RJ0-A, 
DERIO.019 





SINGLE/DUAL 


005726 


010000 


177777 
000001 


072460 
036530 


Baa158 
ieee 
033122 
000113 
040500 
036530 
033112 
041S2e 
035440 
035466 
036539 
03317C 
033170 
033112 


041544 
000290 
033210 


033500 


RPO4/S/6 MULTI-DRIVE EXERCISER 
PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 


033112 
033122 
033214 


000016 


O00C16 


033164 


000016 


000016 


033102 
033104 
033106 
033110 








es: BIT 


“J 
2a 
os 
za 
wo 


1$: MOVB 


2s: MOVB 


SCle: 
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SC7 
#B81T12,RS ;"MOL” = 1 ? 
3$ 


BR IF YES 
#-1,ORVACT(R1) ACTIVE ERROR RECOVER 
#1,DRVSTA(RI) SONLINE 


1’ 
— cages 










;START 30 SECOND TIMER 





ety 
pRvaCTIRL) 3D 16(R2) 


; INFORM USER OF ERROR 
DRIV VE IS IDLE 








PTYQ :DUMP THE QUEUE 

it + (RL) aie IN PROGRESS OR QUEUE? 
ULDFLG(R1) CLEAR UNLOAD FLAG 

BTABI ICRI), RPAS(AY) ROLEAR ATTENTION, BIT 

RV STA(RIL) 18 THE DRIVE UNSAFE 7 



















#113,-(SP) ; RELEASE COMMAND 
0,WRT.RP “WRITE THE COMMAND INTO RPCS1 
:REGISTER INDEX 
:PARITY EXIT ADDRESS _ 
Sc4 *CHECK FOR MORE DRIVES 
DRVACT(R1) $15 OF DRIVE ap 
PC, GETREQ :GET DPB POINTER 
PC'CI7 sPROGESS THE PARITY ERROR 
PC. CI7B *PROCESS THE UNCORRECTABLE PARITY ERROR 
*CHECK MORE DRIVES 
ULDFLG(R1) :"UNLOAD IN PROGRESS”? 
1$ tBRANCH IF N 
ULOFLG(RL) ;CLEAR UNLOAD FLAG 
DRVACT(R1) “SET DRIVE I 
BTABIT(RI) , SRCHMt sDOING A SEARCH OPERATION FOR 
AN I70 COMMAND? 


. M 
sBRANCH IF Seq 
REMOVE REQUEST FROM QUEUE 


-SE 
SAVE T HE REGISTERS? 
PC. SVRH11 ieee -SAVE ALL OF THE RHI /RPO/S/6 REG’S 
BTABIT( RI) ,RPAS(RS) -CLEAR ATTENTION BIT 
PC, OPT —igTart A REQUES 
CK 7 OE MORE DRIVES 
;SAVE THE FOUR REGISTERS THAT 
*WILL TELL US SOMETHING 







PC, POPQUE 
#BtT07, 16(R2) 
SAVEFG 









:C 
Ri RPCS2(R4) SELECT 
RPOSI(R E 

RPERL (RS)! *RPERRS+2 
RPER2(R4)’RPERRS+4 
RPER3(R4) | RPERRS+6 
RO, DRVINT’ s INIT. THE STATE OF THE DRIVE 

BKE ERROR EXIT 


URN 
‘POP PC OFF OF THE STACK 











PC 
(SP)+ 





























NO-11-D2RJD-A, 
DZRIO.919 


037664 





0007 


Oleb16 


177777 ~=033214 


000910 
033236 


004000 
023420 
033142 


033142 
033500 


033122 


041522 
4 


036530 


033156 
000001 


033214 
000002 
037670 
000010 


033167 


000016 


033214 


o00016 


033167 


033214 


RPOW/S/6 MULTI-DRIVE EXERCISER 
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1 


SC13: 


1$: 


2s: 
3$: 


1$: 


2s: 


3$: 
4$: 








;RPO4/S/6 TIMER 
ALL 


MACY11 tk 
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sce ; PROCESS THE PARITY ERROR 
i 0 ADDRESS WORDS 

rl, , TIMER(RI) Stor THE TIMER 

RI, RPCS2(R 'SELECT THE DRIVE 

ati the Tapas has CLEAR THE ATTENTION BIT 
#BIT11, (RY sDRIVE AVAILABLE ? 


BR IF AVAILABLE 
a1o000. »TIMER(R1) ;START 10 SEC TIMER AGAIN 


3$ sEXIT 
DPINT(R1) SINITIALIZING THE DRIVE ? 
DPINT(R1) CLEAR THE INIT INDICATOR 
RO, DRVINT GO INIT 
*DUMMY PARITY ERROR RETURN 
DRVSTACR1) :RIVE ONLINE ? 
2 R IF YES -- START ORDER 
Re :QUEUE ENTRY “FOR THE DRIVE 
33 ?BR IF NOT 
REQ *GET DPB ADDRESS 
abITisi6T14, 16(Re) ; INFORM USER THAT DRIVE OFFLINE 
C,SVRH11 AVE’ THE REGISTERS 
Be EMPTY ‘EMPTY THE REQUEST QUEUE 
DPROS(R1) ; CLEAR THE PORT REQUEST INDICATOR 
PC, OPT :START THE PENDING REQUEST 
sc4 + BROESS OTHER DRIVES 
ROUTINE 
#TIME,-(SP) sELASPED TIME IN MILLISECONDS ON THE STACK 
PC, RPTMR :CALL RPO4/S/6 TIME ROUTINE 
ACTDRY sCHECK “ACTDRV & ACTSTR™ 
Ug s IF NON ZERO EXIT 
#1, ACTSTR sgeT "ACTSTR 
-SAVE RO - RS 
Rl START WITH DRIVE 0 
TIMER(R3) 15 S THE TINER RUNNING? 
2(SP), TIMER(R3) COUNT THE INTERVAL. 
R IF NO SOFTWARE. TIMEOUT 
PC, STO CALL SOFTWARE TIMEOUT ROUTINE 
3$ :GO TO THE EX! 
RI :MOVE TO NEXT DRIVE 
(R3)+ 
#8. ,R1 OUT OF DRIVES? 
$ BRA NCH IF NO 


;RESTORE RO - RS 
;ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG 


ACTSTR 
(SP)+, (SP) sADJUST THE STACK 








MD-11-DZRID-A, 
DZRID. 019 


040324 


RPO4/S/6 MULTI-DRIVE EXERCISER 


MACY11 thy 


SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1 


000207 


013737 


041350 


000016 
033236 


033142 
033152 
033234 
040324 


033142 
033152 
177777 
035540 
Oasize 


177777 
041522 


140600 
177777 
033152 
041S2e 


100004 
041426 
O4YOSE5 


033246 


ft CLRQUE 


BPaS (RY) RS 
ATABIT(RI),RS 


TQ3 
DPINT(R1) 
DPROS(R1) 
ST07 
R1, OTUW 


1 
RO, RO.RP 


ST0e: 


(SP)+ 
STOl - 
DPINT(R1) 
DPRQS(R1) 
033214 1S: #-1. TIMER(R3) 
BR STO4§ 


ACR1) 
033214 #-1 TIMER RS) 
PC, GETREG 
000016 


033214 #-1, TIMER(R3) 


DPRQS(R1) 
tREQ 


STO8: 
ST09: 


: SET 
#5108 THe 
sREQUEST IN QUEUE ? 


STO9 :BR 
¥BITIS!BITIY, 16(R2) 
STOS :FI 


STO9 
#BIT1S!B1T2, 16(R2) 
PC EMPTY -C 
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eet ALL REQUEST QUEUES 


X 
READ _ATTENTION R 
:1S AT uke FOR. furs DRIVE UP ” 


7Y 
Aine 1 TO Pe My DRIVE ? © 
R_IF YES - DRIVE NOT ONLINE 
t OUTSTANDING PORT REQUEST FOR THE ORIVE ? 
:BR_IF_YES - NO RESPONSE TO REQUEST 
14h ja UNDERWAY FOR THIS DRIVE 


:YES--CHECK “RDY™ 


;BR.IF "RDY"=0 
{INITIALIZING THE DRIVE ? 


;B8R IF _INIT PENDING 
PORT _ PENDING ? 


STOP THE TIMER 


x “ 
‘60 HANOLE THE PARITY ERROR - 


;CLEAR THE INITIALIZE INDICATOR 
“y OFFLINE 
TIMER 
THE OPB ADDRESS 


NOT 

" on THE USER DRIVE NOT AVAILABLE 

STOP THE TIMER 

:CLEAR PORT REQUEST INDICATOR 

GET DPB ADDRESS 

QUEUE ENTRY FOR DRIVE ? 

; INFORM USER OF PORT REQUEST ERROR 
THE QUEUE FOR THE ORIVE 

;SAVE THE REGISTERS 

RESTORE R3 

RESTORE Rl 

; RETURN 


;ROUTINE TO READ A RH11/RPO4/S/6 REGISTER 


; CALL 
: JSR RO,ROD.RP 
; INDEX 
; ERRADR 
’ 


; RETURN 


040466 AD.RP: MOV  MCPEMX,RD.RP2 


30 READ A recrsten 

;REG. INDEX FROM BASE 

: ERROR ADDRESS~- PROCESS ERROR STARTING 
sAT THIS ADOR 

CONTENTS OF REG. IS ON THE STACK 


;MAX. RETRYS ALLOWED 


SEG 0164 
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040332 O1164%6 M (SP) ,-(SP) ;SAVE RO FOR RETURN 


Se Mc MCN aac see 


; READ THE fg 2 OF THE RPOY 
PUT HERE 
N_ IT TO THE USER 
PUT THE ADDRESS ON THE STACK 
sFORM THE ADDRESS OF RPCSe 
: CHEC * NED’ 
;BR IF DRIVE NON-EXISTENT 
ARPADR, -( ;READ RPCS1 
aIT 13, (SP) i BRANCH MCPE_SET? 


1 H IF YES 
(SP)+. (RO)+ ADJUST FOR RETURN 
RD. RP4 EXIT 


O403S2 000002 
172644 
020000 


h 3 ;REPORT “MCPE™ ERROR 
033234 TST DTUW ;DATA TRANSFER UNDERWAY? 


040000 #BIT14, (SP) 
es 


; 7 
(SP)+ CLEAN OFF THE STACK AND 
BR RD. RP3 i TAike THE FATAL ERROR EXIT 
040000 : I #BIT14, (SP) CLEAR “MCPE™ By SENDING A "1" TO “TRE” 
:POSITION BEFORE WRITING 
033250 040462 : GEnOR, 3s sFORM ADDRESS OF HIGH BYTE 


o4046e2 
(SP)+,a(PC)+ ;WRITE THE HIGH BYTE OF RPCS1 
3$: 0 : ADDRESS STORAGE 
DEC (PC)+ s EXCEEDED MAX. RETRYS 
RD.RP2: ane 


RD.RP1 ;BRANCH IF NO 

RD.RP3: (RO) ,RO -FATAL ERROR EXIT 
M (SP)+, (SP) 

RD. RP4: RO 


;ROUTINE TO WRITE A REGISTER 


: CALL 
: MOV DATA, -(SP) ;DATA TO BE LOADED ON THE STACK 
: ISR RO, WRT. RP CALL, THE ROUTINE TO LOAD(WRITE) THE REG. 
: INDE INDEX OF THE REGISTER TO BE LOADED 
: ERRADR “ADDRESS TO RETU RN TO ON AN ERROR 
: RETURN *ERROR FREE RETURN 
013737 03324 O406S50 WRT.RP: MCPEMX,WRT.R2  ;MAX RETRYS ALLOWED 
o00d02 O40SE6 MOV 2(SP),WRT.WO ;SAN 
(SP)+) (SP) j ADJUST THE STACK 
040570 (RO)+;WRT.AD GET INDEX OF REGISTER TO BE WRITTEN 
B 1$ *BRANCH IF NOT RPCS1 
000150 o40S66: #150, WRT.WD i1S THE COMMAND FOR DATA TRANSFERS? 
B 1$ YES--DON’T GET THE OLD Al6 & Al7, & PSEL 
040324 RO, RD. RP ?NO=--COMBINE ALG8A17, & PSEL WITH 
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Roy (SP), (8a)+ ee The REGISTER CONTENTS 


040746 OO004% 4S: CNP 38, $, WRPEC2 
ooo002 o040746 ROD #2, 38 8 NC Pe Ment THE REGISTER INDEX 


2 ADING THE REGISTER 
035440 S$: ISR PC, CI? READING THE REGISTERS 
6S: RESREG 
RTS PC 


> TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 


ora Ri ;DRIVE NUMBER TO R1 
T.tE :SET "IE" 


O10446 JIE: RY =(SP} ;SAVE RY 
033250 MO RPADR :PICKUP ADDRESS OF RPCS1 
000010 R1 RPCSaRM) ;SELECT DRIVE 
(R4) ,-(SP) D RPCS1 
040000 I wrt, (SP) SET THE "TRE" BIT OF THE WORD READ 


;ADJUST FOR DATO 
000100 #BITOG, ( ;SET ™ 
010000 oc0010 #BITle, RPCSECR)’ ;1S ton 

1 ; YES~-CLEAR_“TRE” 
i CLEAN OFF THE STACK 


(SP)+, 1(R4) ;CLEAR “TRE” 
(SP)+,R4 


ocoo01 
RE_RY 
RETURN TO CALLER 


1$: 
eS: 


:QUEUE COUNT 
QCnT: -BYTE 


OO0N00000 
NOU CWO 


QINPT: 


NOW COMO 


041330 
;QUEUE OUTPUT POINTERS 












5 
AS 
a Ts 


ty 
~» 
GU OD IMU UIT + 


Sie retetets) 


“ dk 4 
2700 
0 +00 = 0-- 020+ 0-0-9 


“4 
ry 





weeeeee 
Sacizalat 
BEsoR 


SINGLE “DUAL 


O0-oOr- 
PB58K 
entity 
“Oo rtd: 

0 b-= 0 2 phe 


041056 


O41066 


000016 
041056 


041066 
OCO002 
041066 


041126 


041056 


041106 


RPO4 S/6 MULTI-DRIVE eo hy y 
PORT RH11/RPO4/S 


041106 - 


041056 


041066 
041130 


041066 


ee ee es es er ee 


MACYL1 27% 
/& DRIVER (REV 1 


;EMPTY THE QUEUE SPECIFIED BY Ri 


sROUTINE TO PUT 


MOV 
MOV 
JSR 


RETURN} 
RETURNe 


: CMPB 


;ROUTINE TO G 


wer i7:04 PAGE 133 SES Cié9 


;ORIVE NUMBER TO Ri 


;CLEAR NUMBER OF ITEMS IN QUEUE 
tlre: carmastel ote ;SET OUTPUT QUEUE POINTERSINPUT POINTER 


A REQUEST IN QUELE 


if boATE THE QUEUE F 
se, gINeT‘r rasrorcAD) 


1$ 
GSTART(RL), arneTiges TES -RESET POINTER 


37 AKE 3 

;RETURN TO USER 

THE “DPB” ADDRESS OF NEXT REQUEST IN QUELE 
;ORIVE NUMBER TO RY 

:G0 GET THE REQUEST 


;R2="DP8" ADDRESS OF THE REQUEST 
:Re=0 IF NO REQUEST IN QUEL 


tNO=--BRAN 
;PICKUP “DPB” POINTER FOR THIS DRIVE 
sRETURN TO USER 

;ROUTINE TO "POP" THE REQUEST FROM QUEUE 


Rl 
GOUTP TCR) RS 














;ORIVE NUMBER 
; ADORE SS OF cee a BLOCK 
T REQUEST UE! 
RETURN HERE IF SUEvE $ FULL 
RETURN HERE IF REQUEST IS IN QUEUE 


31S QUEUE F 
BR IF YES- ake RETURN1 
:INCREMENT QUEUE COUNT 


T THIS REQUEST IN QUEUE 






C INTER 
bona te to TO RESET THE POINTER 


RETURN 2 














31S THERE fy REQUEST IN QUEL'E? 











00 RUT Gore Ge ORO Eh Eo 


NIN NNN NN NN NNN NNN SS 
eee et et eed ete ete ei ei et eit ie 





“ORIVE EXERCISER MACY)! 27(655) 
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; MOV SORA, Ri 
; JSR PC, POPULE 
; RETURN 


POPQUE: DECS QeNTCRL) 

MOV agOUTFT (RL) Re 
1) UPD NTER 

CMP QoUTPT CRI), Reeropibio TIM T0 RESET THE POINTER? 
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RIVE NUMBER TOS 
ALL TO PEMOVE REQUEST 


;R2=ADDRESS OF DPB REMCVED 
;DECREMENT QUEUE COUNT 


; GET a Pg” fein ER 
ATE THE QUEUE POIN 


MOV QSTaRT (RL), gouTet(Ri) : nYESC-RESET THE POINTER 


1$: asR 
RTS pe 


;RETURN TO USER 


pp RRERERRREERERER REE EER EREEEEEEEEEREREEEEES EASE EASED ELSE SR EES 
-SBTTL DATA, CONTROL, & STATUS BLOCKS 


LRSLELSLELALSFERAASSERLAFEAAL SALTER SLEALAFSAARAERELALL SEL ALALSE RS 


;BLOCK LOCATION EQUATE STATEMENTS 


~ 


~ 


~ 


sFMT.HCI,ECI OR CFFSET CODE 
OPERATION CO 
: PORT cei ecy & BITS Alb, AL7 
:WORD COUNT (2S COMP) 

FER ADDR OR REGISTER TABLE POINTER 
:SECTOR ADDRESS OR 1ST REG ADDR 
TRACK ADDRESS OF Last REG ADDR 
:CYLINDER ADDR 
‘RE EICTER STORAGE (IF ERROR) 
:STATUS WORD (SET BY DRIVER) 


;DRIVE’S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 


SFMT a 
SCOMND = SFMT+1 
SPSEL = SFMT+2 
SWROM = SFMT+3 
$BUF z SEMT+S 
$SEC = SFMT+7 
STRK = SFMT+10 
SCYL = SFMT+11 
SREG = SFMT+13 
STATUS = SFMT+15 
SWROL = SFMT+17 
SSSEC = SWROL +2 
SCODE = WROL +4 
$PACK = WROL +6 
SPREVO = $WROL+7 
PATTC = Senos 1g 
PREVA = WROL +1 
SOPERC = SWROL+16 
$POSIT = Sua $6 
$TRANS = WROL+26 
$READ = $WROL+32 
$TOTAL = $WROL +36 
$SOFT = SWROL +40 
SHARD = SWROL+42 
SKI s SWROL +44 
$MISPO = SWROL +46 
$PASSC = _ $WROL+S0 
$FAIR = $WROL+S2 








;WORD COUNT ‘NOT g, f COMP ) 
:S URRENT OPERATION 
it 7D COMMAND Serecrioh COOE 


VIOUS COMMAND SELECTION COCE 


i: EVTOUS. AbGREss - TRACK, SECTOR, CYLINOER 
30 PERATION COUN 


3 BK count 
;TOTAL BITS XFERED COUNT (R 8 Wi) 
Tate TS NT 

3] SOFT’ E ERRORS (ALL_TYPES) COUNT 
, SOFT’ R COUNT 


x ’ sAeyE 


ERROR COUN 
Rae Be reg reo MISPOSITIOY ING ERROR S COUNT 
OPERATION QUEUE *FAIRNESS’ COUNT 











5 
m 


JO-A, RPOY-S/6 MULTI- 
DATA, CONTROL, 


w 


saa-aa 


SRR EORE Swe sou 


a es ee ee 


= 0 -© b— + b+ b—2 b&b -* 9-2 O- =» 2p - p-0 po 


wm. 


SNM ON MO MP MO MOM UIMIUTUTU TUT UU ee 
1 SnD OEE COFOh- CoD U0 GOP Ue Conor Cou ab a0 
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BLOCKS 


; INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 


$NCODE = SWROL +54 ;NEXT OPERATION CODE 
$NPATC = $NCODE+1 ;NEXT PATTERN 

$NSEC = SNCODE+2 ;NEXT SECTOR 

SNTRK = SNCODE+3 ;NEXT TRACK 

NCYL = SNCODE+4 ;NEXT CYLINDER 

$NWROL = SNCODE+6 ;NEXT BUFFER SIZE 

NEXT = SNCODE+10 ;PARAMETER SELECTION INDICATOR 
; INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 

MAXCYL = SNCODE+i2 ;MAXIMUM CYLINDER ADDRESS 
MINCYL = MAXCYL+2 ;MINIMUM CYLINDER ADDRESS 
MAXTRK = MAXCYL+4 ;MAXIMUM TRACK ADDRESS 
MINTRK = MAXCYL+6 ;MINIMUM TRACK ADDRESS 
MAXSEC = MAXCYL+10 ;MAXIMUM SECTOR ADDRESS 
MINSEC = MAXCYL+1e2 ;MINIMUM SECTOR ADDRESS 
SFIRST = MAXCYL+14 ;FIRST OPERATION INDICATOR 
;BAD SECTOR/TRACK ADDRESS STORAGE AREA INDEX EQUATE 
S$BDSEC = MAXCYL+16 ;BAD SECTOR STORAGE TABLE 
;DRIVE ID AREA INDEX EQUATE 
$ORVID = $8DSEC+100 ;DRIVE ID 

3RH11/RPO4/S’E REGISTER EQUATES 
$RPCS1 = SORVID+10 ;RPO4 REGISTER STORAGE 
SRPWS Os SRPCS1 +2 
SRPSA = $RPCS1+4 
SRPDA = PCS1+6 
SRPCS2 = $RPCS1+10 
$RPDS1 = $RPCS1+le 
SRPER1 = SRPCS1+14 

RPAS = $RPCS1+16 
SRPLA = SRPCS1+29 
SRPOB = $RPCS1+2e 
SRPMR = $RPCSi+24 
$RPDT = $RPCS1+26 
SRPSN = $RPCS1+30 
S$RPOF = RPCS1+32 
SRPCA = RPCS1+34 
$RPCC. = SRPCS1+36 
SRPER2 = SRPCS1+40 
SRPERS = $SRPCS1 +42 
SRPEC1 = $RPCS1+44 
SRPECe = SRPCS1+46 


;BLOCK FOR DRIVE 0 









& 


ian as Ps) 


col a4 
-Oww~ 


>< 6 b+ 0 0 6 = Pb = bb -< > 2 0-2 2 0 9-0 om 


ININININININISINI 99ST IIIT 
GRA LO BBR GRRL oote 
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6 
043550 


O44035 
o44040 
O440S2 
44054 
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DATA, CONTROL, & STATUS BLOCKS 


DRIVEO: 4 0 
-WORD .+$RPCS1-SREG 
-BLKB SRPEC2-SREG 
;BLOCK FOR DRIVE 1 
DRIVE!: 4 1,0 
-WORD .+$RPCS1-SREG 
~-BLKB SRPEC2-SREG 
;BLOCK FOR DRIVE 2 
DRIVE2: ab: 2,0 
-BLKW 5 
-WORD .+$RPCS1-SREG 
-BLKB SRPEC2-$REG 
;BLOCK FOR DRIVE 3 
DRIVES: 5 3,0 
“ORD +$RPCS1-SREG 
-BLKB © SRPEC2-$REG 
;BLOCK FOR DRIVE 4 
DRIVE4: Ste 4,0 
-WORD .+SRPCS1-SREG 
-BLKB SRPEC2-SREG 
;BLOCK FOR DRIVE S 
DRIVES: fe 5,0 
~BLKW 5S 
WORD .+$RPCS1-SREG 
-BLKB = $RPEC2-SREG 
;BLOCK FOR DRIVE 6 
ORIVES: ‘re 6,0 
. BLKW 


-WORD .+$RPCS1-SREG 
-BLKB S$RPECe-$REG 






























NO-11-DZRJO-A, 
OZRIO.019 
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SEQ 0173 
DATA, CONTROL, $8 STATUS BLOCKS 






¢ 7 

esse ;BLOCK FOR DRIVE 7 

7239 O4434e 007 000 DRIVE?: .BYTE 7,0 ;DRIVE NUMBER 
7231 O44244 000005 - BLKW 

ve 4356 4576 -WORD .+$RPCS1-SREG 

723 4360 0266 -BLKB S$RPECE-SREG 


235 
7296 ;GENERAL PURPOSE DPB - USED BY ’READHD’, *RECALT’, ’OFFSET’,&’RTNCTR’ 
7238 O44646 pooees O00C00 177774 GENDPE. .WORD 0,0,-4,CYLDER 


7240 044656 000000 O00000 Oo44S66 -WORD 0,0,GENREG,O 

7e41 044664 000000 

ici O44666 000024 GENREG: .BLKW = 24 ;REGISTER STORAGE IF ERROR 

7ew4 5p RRRRERR REE ERE EERE REAR EE EE EKER ERE R ERE REESE REE EEE EERE REAR EEE 
7245 -SBTTL ERROR MESSAGES 

7247 


om 5p HERE REEL EERE ERE EERE EE EEE REE EEE EE EERE EEE EERE ER ERE 
7250 eeran O44122 O30461 O4444O EMI: -ASCIZ /RH11 INTERRUPT OCCURRED (RPAS = 0)/ 


045001 Ls 042516 Gabe EM2: -ASCIZ /UNEXPECTED ATTENTION OCCURRED/ 


052191 2524 
7e6O0 O4S0e2 047511 020116 041517 
O4S030 OS2S02 OSli2e o42105 


7261 SO 2 
reoe 045036 000 
7264 045037 115 051501 O41123 EM3: -ASCIZ /MASSBUS PARITY ERROR {MCPE=1)/ 
7e6S5 O4S044 0515e5 050040 051101 
7266 O450S2 OSelii 020131 051105 
045060 O47Se2 OeOlee O4b4S0 


7268 O45066 050103 036505 O2446l 

reea 045074 000 

7271 045075 115 051501 O41123 EM4: -ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 
7e72 451 051525 050040 051101 

7273 945110 OS2111 020131 051105 

7e74 O4S116 O47See Oedlee 050050 

7e75 «(045124 051101 030475 000051 

7277 ~O4S132 O42101 051104 051505 EMS:  .ASCIZ /ADDRESS PLUG CHANGE BIT SET’ 
7278 045140 Oe0le3 O461e0 O43Se5_ . 

7279 «~“O4S146 440 040510 043516 


O41 0 
7280 O45154 020105 O4450e Oe0le4 


MO-11-02RJ0-A, RPOYS’& MUBTI-DRIVE EXERCISER MACY11 27(655) 28-APR-76 17:04 PAGE 138 SEQ 0174 
OZRID.919 ERROR MESSAGES " 


O4eS23 000124 

oNalee eae O42040 EME: -ASCIZ /RH11 DIDN’T RESPOND TO ADDRESSING/ 
File 
O4eSee 
000107 


047503 i /UNCORRECTABLE MASSSUS PARITY ERROR/ 
040524 


45o4 
051117 
052101 Fis /FATAL MASSBUS PARITY ERROR/ 


051105 


051511 y 4 /PERSISTENT DEVICE UNSAFE/ 
042040 
020105 
042506 


OPERATION NOT COMPLETED WITHIN TIME LIMIT’ 


/DRIVE WENT OFFLINE/ 


/NO RESPONSE TO PORT REQUEST/ 


“HEADER CRC ERROR/ 
O4SS2e4 051122 


045531 


104 /DATA CHECK (*DCK') ERROR” 
O45536 044103 
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DZRID.919 ERROR MESSAGES SEG 0175 


O4SS44 041504 023513 
051105 O47See 


OS21i11 020105 > % /WRITE CHECK ERROR - DATA CHECK (’DCK’) SE7/ 


052105 


O4eS24 fs /WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET/ 


047516 
000124 


/HEADER READ ERROR - ‘FMT’ BIT DROPPED/ 


HEADER READ ERROR - HEADER COMPARE ("HCE*) ERROR/ 


OSilee 051117 


051117 pipes ts /FORMAT ERROR ('FER’)/ 


0S1i 047S2e 

023450 O42S06 

042510 $f /HEADER COMPARE (’HCE*) ERROR/ 
041449 


051511 p42503 Es “MISCELLANEOUS DRIVE ERROR/ 
047101 047505 
046140 051525 O4e2e040 O44See 
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DZRJO.019 ERROR MESSAGES 


O46145 O4eSe& O4e44O 051122 
046154 051117 000 


ae gh oA 117 O42S5e0 O40Se2 > /OPERATION INCOMPLETE (’OPI’) ERROR/ 
04172 
046200 


046206 
046214 
/DRIVE TIMING (’DTE’) ERROR/ 


“PARITY (*PAR’) ERROR AFTER OPERATION STARTED/ 


/WRITE CLOCK FAILURE (°WCF’) ERROR/ 


051105 


044514 ‘ES “INVALID ADDRESS (*IAE’) ERROR/ 
051104 

023450 

020051. 

000122 

020105 oT an “WRITE LOCK (’WLE*) ERROR/ 


“DATA CHECK (*DCK’) SET DURING WRITE CHECK COMMAND/ 


040515 
046542 
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DZRJD.919 ERROR MESSAGES 


ei 102 pete EM46: .ASCIZ /BUS ADDRESS AND WORD COUNT NOT CONSISTENT/ 


-ASCIZ /SEEK INCOMPLETE (’SKI’) OR OFF CYLINDER (’O0CYL’) ERROR/ 


Bue 


o40S2e -ASCIZ /PROGRAM DETECTED POSITIONING ERROR/ 
042524 
OSO040 
047511 
042440 
000 
042526 -ASCIZ /ORIVE UNSAFE ERROR/ 


atoatptotlotntatptataat 
WOnNWUICWM--OW 


ae 


7See 
7523 
7524 
7525 

2b 


/RPAS/ 
/DRIVE RPDS! RPERL RPER2 PERS RPAS/ 


020105 : ° “DRIVE REG ADR DATA/ 

020107 : 

042040 

020105 : , /DRIVE REG ADR GOOD BAD/ 


047517 
047536 041040 O42101 
047544 
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DZRJD.019 ERROR MESSAGES 


042101 DHE: -ASCIZ /SRPADR/ 


SOle2 DHi4: .ASCII /DRV RPCS1 RPCS2 RPDS! PERL / 


/RPER2 RPERS PECL RPEC2/<CR><LF> 


-ASCIT RPDA RPAS RPLA 


4 
040514 


020040 2 RPDT/<CR><LF> 
051115 


-ASCIZ RPCA RPCC STATUS/<CR><LF> 


050030 000000 : , ATTN,O 

050034 O0le42 033102 033104 . ‘ DRIVE , RPERRS , RPERRS+2, RPERRS+4, RPERRS+6, ATTN, O 
050042 033110 001244 

oS0050 000000 

050052 040350 040352 : : DRIVE, RD.ADR,RD.WRD,O 

050060 


oscote 040570 O40SE66 : . DRIVE ,WRT.AD,WRT.WO,RD.WRD,O 
050070 oco000 


050074 000000 : ‘ $SRPADR, 0 
050100 o00244 000246 ‘ SRPCS1, $RPCS2, $RPOS1, SRPER1, SRPERC, SRPERS, SRPEC1, SRPEC2, 0 





MO-11-DZRJD-A, 


DZRID. 


0 
OS0S06 


RPO4/S/6 MULTI-DRIVE EXERCISER 


ERROR MESSAGES 


000250 000274 
000300 000302 


000236 000240 
000252 
000260 


000254 
000262 


000266 


020113 


000276 
000000 


000242 
000256 
000000 


000270 
000000 


047105 


020075 
ozus 
ei 
020113 
040503 
036440 
036440 
041527 


“020124 


020075 
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- WORD 


. WORD 


-ASCIZ 


-ASCIZ 


: -.ASCIZ 


LINM3: 
T: 
LINN3: 
S: 
LINP3: 


LINS3: 


LINENS: . 


LINAS: 


LINT3: 


LINCA3: . 
LINDAS: . 


LINB3: 
LINW3: 


LINST3: . 


SRPWC , SRPBA, SRPDA, SRPAS, SRPLA, SRPDB, SRPMR, SRPDT ,O 


SRPSN, SRPOF , SRPCA, SRPCC, STATUS, O 
/PRESENT ORDER = / 


/ PREVIOUS ORDER = / 


a* ERROR AT BAD TRACK/SECTOR@ 


ZERROR AT C/ 


as 
/PRESENT ADDR 


; REV ADDR 
“START CYL = / 
¢ END CYL = / 
/ ACTUAL CYL = / 


/ TRK = / 

/ RPCA = / 
/RPDA = / 
/RPBA = / 

4 RPWC = / 
“START TRK = / 


SEQ 0180 
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DZRJD.919 ERROR MESSAGES 


O40Se4 OSel22 LINSS3: .ASCIZ /START SEC = / 
041505 036440 


OS110S LINM4Y: .ASCIZ /BUFFER ADDR = / 
020122 


LINSY: .ASCIZ 7 SIZE =/ 
LINX4: .ASCIZ 7 ACTUAL NMBR WROS XFRD = / 


. 
042040 $ /GOOD DATA = / 
01 . 020075 


042101 ae / BAD DATA = / 
020101 


041505 $ / SECT POS = / 
020123 


peed to» /HEADER FROM ERROR SECTOR = / 


LINEPS: .ASCIZ /RPECI = / 
LINEOS: .ASCIZ / RPEC2 = / 
LINB&: .ASCIZ /SECTOR IS ECC CORRECTABLE / 


LINCB: .ASCIZ /SECTOR READ CORRECTLY / 


LING: .ASCIZ /CORRECTED ON / 
047117 


O4W4S22 LINRE: .ASCIZ / RETRIES/ 
051117 LINUO&: .ASCIZ /UNCORRECTABLE AFTER / 


RES 


O40S24 LIN7M: .ASCIZ / TOTAL MISPOS ERR = / 
050123 
0S11e2 


OS1S22 LIN70: .ASCIZ /ORDERS:/ 


Sener 


fur 
£or 








a sd 


a 
worse i eh 


inet 


RRAA AAA 


» + 0 & + 0-= 9-< & 09-3) -* -b~e = 


tururururoryu 
atest ett 


3-3-3 


+3 
y SSSR eS | 


8 


RIPELES 


Prt eae 
RE PTS 


WERE 


& 
4 


Pet 


it 
mu 


WU 


o* 


(RRR UN HAUT UMAGA GAA AURORA 
mero 


0 b+ B= bs Bs 2 2d + 8b bo b= bb 8 = 2 0 b2 B= 02 0 bo B-2 b+ b= 0 De be fe 0&3 0 0 &-2 h 0 bs B= 2 hh He 


“ 


a 
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ERROR MESSAGES 


2040 OS2li7 04610) LIN7P: .ASCIZ ~ TOTAL SEEKS = / 

144 O42 051513 

440 900040 

O40 QS2117 QO46101 LIN?S: .ASCIZ ~ TOTAL SKI,OCYL ERR = / 
144 4513 Rat tad 

45 Oil4 1] 


0075 
nsittd aes OS1!22 LIN?T: .ASCIZ / ERRORS:/ 
O42122 LIN7X: .ASCIZ / WRODS XFR:/ 


OS344O O42l22 LIN7R: .ASCIZ ~ WRDS READ: / 


043106 OS1105 LINSM: .ASCIZ -DIFFERENT ERROR DURING RETRY/ 
O47S2e Oe0lee 
04452. 


020101 LINSB: .ASCIZ /DATA COMPARISON ERRORS’ 

MO LINSH: .ASCII / 6000 BAD/<CR><LF> 
1 

4 020103 page’ ASCIZ LOC DATS DATA/<CR><LF> 


006 
4 ae O20040 LINSI: .ASCIZ /LOC DATA’<CR> <LF> 


7554 40524 O20114 LINGE: .ASCIZ /TOTAL COMPARE ERRORS = - 
B44i25 020105 O40SO4 LINGG: .ASCIZ /THE DATA COMPARED 0k/<CR><LF> 
O49eS4 041440 2 


0 
0S1122 paithe LINIOA: .ASCIZ /ERROR BURST BEGINS AT WORD / 


8 
= 
tT 
PRRER 


—-OONO 
Ule—- 0 0 +e 


LINIOS: .ASCIZ / IN DATA FIELD OF ERROR SECTOR’<CR><LF> 


a | 

+ 

o 

— 

i) 

uw 
Oooo 
£orure 
ovoe0ore--QO0o0 

s£ 


047524 





| 
| 
| 
| 
| 


’ 
io 


1 Sa 


ie 


PPAR RSE MM AAS aam toe 
ARELERE 
areittatstaty 


RAADAAAAAARAAARRAAAARRAR 2 


+ &~ > » = 6 8 b= bbb § -< 9 ~~ b= 9+ po 9 9 es 


tangs 


i 
i 


i 


tu 


RERRIER 
mj 


os 


oO 
wn 
“3 
“I 
o 


Ree 


oO 
wn 
fu 


in 
fu 
FSV Le 


ue 


000195 
O44S14 


44514 
020124 
020107 
042105 


042522 


09 
020124 


LINIOC: .ASCII 
-ASCIZ 
LINIOH: .ASCIT 
~ASCIZ 
LINLIH: .ASCIZ 
ASCIZ 
LINYSP: .ASCIT 
LINSP: .ASCII 
LINSPO: .ASCIZ 
-SBTTL 
UNTMSG: .ASCI 
UNTOFF: .ASCIZ 
UNTON: .ASCIZ 
UNTNOT: .ASCIZ 
UNTASN: .ASCIZ 
NOTRP: ASCIZ 
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TELETYPE MESSAGES 
Z /DRIVE/ 


“ERROR WAS NOT IN THE DATA READ - /<CR><LF> 


“ECC CORRECTION CAN'T BE PERFORMED/ 


/ECC CORRECTION RESULTS/<CR><LF> 


CORRECTED /<«CR><LF) 


“CONTENTS OF ERROR SECTOR (REPORTED ABOVE) /<CR><LF> 


/ NOT BEING TESTED’ | 


/ ALREADY BEING TESTED/ 


a NOT AN RPOH-S “6a 















RPOY / 
TELETYPE 





S04 
047107 
025012 


000043 


TI-ORIVE EXERCISER 
SSAGES 


930120 
popes 


04 

ie 
020124 
040514 


043101 


OS31i1i 
051501 
042105 


025052 
0eS0Se 
OS311i 





NOTPRS: 
NOTAYL: 


NOTSAF: 
SYSTAT: 


RPOE: ‘ 
STATHD: . 


PDONE: 


DROPNG: 


ENOPAS: 
ENOTST: 


DEASSG: 


DRNUM: 


MACY11 27(65S) 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 
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SEQ 0184 










/ NOT PRESENT/ 





/ NOT AVAILABLE/ 







/ UNSAFE’ - 
/UNIT STATUS: 7<CR><LF><LF> 






/RPOY/ 
/RPOS/ 


/RPOG/ 
/DRIVE PERFORMANCE SUMMARY/<CR><LF> 
















/DRV PASS ORDERS SEEKS WROS XFER WRDS READ / 


“SOFT HARD SKI MISP OTHER/<CR><LF> 


/DONE/<CR> (LED <LF> 
(O7>/?FATAL OR EXCESSIVE ERRORS’ 


ZEND OF PASS/ 
<CR><LF>/END OF TEST’ 


(CR><LF>/DRIVE DEASSIGNED/ 


(CR) <(LF> /xaeeeeeeee DRIVE &- 


MO-11-D2RI0-A, 


RPO4’S/’6 MULTI-DRIVE EXERCISER 
TELETYPE MESSAGES 


B82i08 

015 
023514 
050047 
041517 
0S2Se1 


047440 
0S2le3 


Sage Rate 2s 
MR Su RERRR SRE wae 


iin 
wr 


027056 


Beenie 
037412 
047440 


047117 


047111 
020104 


) 
005015 


052101 


051105 
44440 


006505 
O40S26 


ASGND: 


NEDCLK: 


PERIOD: . 


QUES: 


ENTCOM: . 
ENTDORY: . 


ENTLMT: . 


ENTADR: 


COLON: 
DATEIS: 


IDIS: 


HEDLIN: 


NONE: 


BADENT: 


BUSY: 


-ASCIZ 








MACY1 


-ASCIZ 
-ASCIZ 


-ASCIZ 


~ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
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/ STARTED/<CR><LF> 
(CR><LF>/? 'L* OR °P’ CLOCK REQUIRED ON SYSTEM/<CR> «LF» 


s/ 

/INVALID COMMAND/<CR><LF> 

<CR><LF> ENTER COMMANDS: /<CR><LF> 
/ENTER I.D. FOR DRY &/ 


(CR><LF>/ENTER POCRESS LIMITS FOR DRV &/ 


DENTER BAD TRK/SEC ADRS FOR DRV #2 


Sof 
(CR><LF>/DATE: 
«CR><LF> OPERATOR I.0.: 


<CR><LF><LF>/DRV ORV I.0.7<CR><LF> 


/NONE/<CR><LF> 
/? INVALID ENTRY/<CR><LF> 





/SYSTEM BUSY.../<CR><LF> 


MO-11-O2RJ0-A, 
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TELETYPE MESSAGES 


aece INTDON: .ASCII <CR><LF>/PROGRAM INITIALIZATION COMPLETE/ 


1 
000103 
047506 


EVEN 


-ASCIZ 






<CR><LF>/TYPE A ’CONTROL C° TO ENTER COMMANDS/‘CR><LF><LF> 








PARAMETER ENTRY TABLE 


PARLST: . 
HW 


ASKPAR: 


SLASH: 


PARI: 
PAR: 


PAR3: 
PARY: 
PARS: 
PARE: 
PAR?: 
PARS: 
PARS: 
PAR1O: 





-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 








a/a 


/MAXDL/ 
ZINTRVL/ 


/CMPLMT / 
/MAXCYL/ 
“MINCYL/ 
/MAXTRK/ 
/MINTRK / 
/MAXSE 

/MINSEC/ 
“FORMAT / 





; TABLE TERMINATOR 
/F’'TER PARAMETERS: 











MO-11-D2 CM =A, 
DZRID.919 









TELETYPE MESSAGES 



























7931 Hesee 040520 041523 










8000 053674 peae}s 

















8011 053714 053553 000000 O41716 
OS37ee O QO 





“ 
80:6 053752 053600 000025 041724 





Bate 053760 000000 

8019 OS3762 053553 000000 CYe2eee 
2020 053770 953544 000000 dO42220 
8021 OS 053571 0022 OY4eeeb 












054060 0000eS 
8032 OS4066 052600 O000eS 042534 
8033 054074 000000 


8035 054076 053553 000000 9043032 
8036 054104 053544 900000 043030 













900 
le? 05iS03 046105 


4 
7985 bese 000 

73 3 iss OS2101 O47S11 
798 3t4 


7988 etal 101 OS2l2e5 041517 
7990 053650 047105 O4eS04 000124 
0S2116 


7992 95366! 909 
7933 053665 116 OS2i17 051120 
7984 =05367e 900124 


Co 
80e4 054020 053600 000025 O4e230 
000000 


43) : 
80e7 9054030 053553 000000 O4eSe26 
8028 000000 


RPOW/S/G& MULTI-DRIVE EXERCISER 


PARLI1: 
PARLY: 
PARIS: 


PARIE: 
PARIS: 


PARZO: 


_ TABLE: 


MACYL1 


EVEN: 
;PARAMETER TABLE POINTERS FOR ADDRESS LIMITS 
ie TABLEO 





27(655) 


~ASCIZ /WCSEL/ 
-ASCIZ /RATIO/ 
sASCIZ /AUTOCK/ 


-ASCIZ /ENDET/ 
-ASCIZ /PASCNT/ 


-ASCIZ /NOTPRT/ 


“WORD TABLE? 
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; PORAMETER TABLE FOR ORIVE 0 


;PA 
;PARAMETER TABLE FOR DRIVE 7 


;PARAMETER TABLE FOR ADDRESS LIMITS 


TABLED: 


TABLE1: 


TABLE: 


TABLES: 





“WORD PAR 


- WORD 


qr PARS ,O, MINCYL+DRIVEQ 


PARY | 0. MAXCYL+DRI VEO 
INTRK 


RD 
WORD  PAR7,18. 
“WORD  PARG’18.' 
“WORD $AR9;21. 
“WORD PARB’ 21. 


“WORD  PARB;2 





1. 


Vel 

. »MAXTRK+DORIVEL 
*HINSEC#DRIVEI 
VEl, 


,;MINSEC+DRIVED 
,»MAXSEC+DRIVEO, 0 


. WORD ey C,MINCYL+DRIVE1 
“WORD PARY' 0) Nig Mara 8% 


ey 


K+DRI 


,;MAXSEC+DRI 0 


- WORD PARS, 0, MINCYL+DRIVE2 
ti - MINTRK +ORTVE2 


K+DRIVEe 


; NINSECSDRIVES 
:*MAXSEC+DRIVES, 0 


-WORD PARS,O,MINCYL+DRIVE3 
PAR, 0; MAXCYL+DRIVE3 









» RPOWS/6 MULTI-DRIVE EXERCISER 
TELETYPE MESSAGES 


8037 OS4ll2 053571 000022 043036 WORD 
8038 054120 pesebs 000022 943034 WORD 
8039 aire 053807 O0000e5 043042 WORD 
8040 Os41 053600 000025 043040 WORD 
804 000000 
8043 OS4244 053553 000000 043336 TABLEY: .WORD 
8044 054152 053544 000009 043334 - WORD 
aoe 4160 053571 Mattes 43342 - WORD 
46 054166 053562 O0000e2 043340 - WORD 
8047 054174 053607 000025 043346 - WORD 
O48 oS4e0e 953600 O0000eS 043344 - WORD 
Seen OS4ei0 000000 
8051 54212 053553 000000 O43642 TABLES: .WORD 
8052 O0S42e0 053544 0000 43640 WORD 
8053 OS4e2e6 053571 O000e2 O43646 WORD 
8054 054234 053552 O0000ee 043644 WORD 
BOSS O54e42 053607 O0c00eS 043652 WORD 
8055 O54eS0 053600 O0022S 043650 WORD 
epee OS4=5e 
80539 054260 OO00Co C4Y4146 TABLEE: .WORD 
8060 954 053544 anes 044144 - WORD 





0025 
o00deS 044154 








324 

8067 3e6 053553 pone O444S52 TABLE7: .WORD 
8068 054334 053544 0000 O444S0 WORD 
8069 054342 3571 o00002e2 O44456 WORD 
8070 054350 o0002e2 O44454 WORD 
807i 054256 053607 O0000e5 O4446e2 WORD 
807e 054364 053600 000025 O44460 WORD 
8073 054372 0000 

8075 

8076 054374 oc00000 000000 O00000 CYLDER: .WORD 





ENOPGM = 





OS4404 104401 OS4516 


MACYL1 27(655) 


5 5 RARER ARERR REE EEE EERE ERA E EERE RR ER EERE HERR EER RRR ER HERE 
;ROUTINE TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR 


. 8083 
8084 ;CALL: 
goes ; JSR 
8086 : RETURN 
8087 : 
e088 


NOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START 
OPRDAT: TYPE 
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SES 0188 












PAR7, 18. ,MINTRK+DRIVE3 
PARE; 18. ; MAXTRK+DRIVES 
PARS, 21. ,MINSEC+DRIVE3 
ARS,21. ,MAXSEC+DRIVE3,0 









PARS ,0, MINCYL+DORIVEY 
PARY) 0: MAXCYL+DRIVEY 
MINTRK 


18. 
PAR6 118: RATEABLE 
PARS; 21. ;MAXSEC+DRIVEY, 0 





PARS,O,MINCYL+ORIVES 
PARY; 0: MAXCYL+DRIVES 
MINTR 





PAR7: 18. , K+DRIVES 
PARG’ 18.) MAXTRK+DRIVES 
PARS; 21. ,MINSEC+DRIVES 
PARB, 21. ,MAXSEC+DRIVES, 0 





PARS,0,MINCYL+DRIVES 
PARY’ 0’ MAXCYL+DRIVES 
PAR7: 18 











PARS} 21. ; MAXSEC+DRIVES, 0 





PARS, 0, MINCYL+DRIVE? 
PARY’ 0’ MAXCYL+DRIVE7 
PAR7; 18. ,MINTR 






l., 
PARS, 21. ;MAXSEC+DRIVE7,0 












;HEADER BUFFER FOR "READHD’ ROUTINE 





;LAST LOCATION OF PROG + 2 







PC, OPRDAT 










»ENTDAT ; ENTER DATE’ 


efattrietrirtr tear 


GBB VR Leah e Oe SOUT LOU C00 VOUT OU Dee Sr Loe 


OO Oo 8 0 be bd 0 2 0 0 * = 0 bb bs Bb 92 bo bo 02 be 9 2 0 9 be bo (2) 
££ LWWG) 


§ 
8 
8 
8 
g 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
g 
g 
+] 
8 
8 
g 
8 
8 
g 
. 8 
8 
8 
8 
g 
8 
8 
g 
8 
e 


et 
wr 


ath be gel 


nig 





104411 


005015 
020122 
ven (6 
047440 


047524 
027104 
OS4S64 


010046 


012637 


001220 


000004 
000006 


000006 
054630 
020000 


oo000e 
000006 


RPO4/S/& MULTI-DRIVE EXERCISER 
TELETYPE MESSAGES 


ENTDAT: . 
ENTID: 
. EVEN 


-SBTTL ROUTINE TO SIZE MEMORY 
Fe apemmasc nett cpimaean natn x meta talents ran ib cma 


jECAL 


$SIZE: 


MOV SP.R 
:3SET THE E ERRVEC PS TO THE Present PS 
(SP)+, JHERRVEC#2 
23, JHERRVEC 
1$: 


2s: 


MACY11 27(655) 


RLS AVEC, pet 


RO: SP 
SA NERRVEC+’ 
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;READ THE ENTRY 


Hondo St ADDRESS INTO RS 


DATE 


(CR><LF>/ENTER DATE: / 


-ASCIZ /ENTER OPERATOR I.D.: / 


R 
ESSLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 
3 3 BAVE wy ON THE STACK 
;SAVE Rl ON THE STACK 
: ave PRESENT ERROR VECTOR PS & PC 
;SAVE THE STACK POINTER 


USH 7 aoe AND PC ON STACK 
V3 PSW IN J#ERRVEC+2 


OP BACK 
ORE THE STAC 









EST 
; RESTORE ERROR VECTOR 





oO 
o 3° 
C4 
St 
oOo 
os 


+ b+ b— b= b= b= b= 9 bb bf b= he hs be bs b= b= bo fo 2 f= fe pe fe ho pe 


Prater di teint ioc RAN RON OS ALT a aa Ha RT pe 


» RPOW/S.6 MULTI-DRIVE EXERCISER 
ROUTINE TO SIZE MEMORY 


012637 


000004 
010137 O0S4660 


001260 
001260 


052073 


055114 


177776 
055103 


052073 


OS5114 


177776 


bacocd 


000004 


MACY11 27(655) 


MOV (SP)+, JHERRVEC 
MOV R1, $LSTAD 
MOV (SP)+,R1 
MOV (eP)3° RO 
RTS PC 
SLSTAD: .WORD 0 


-SBTTL_ BUSADR - GET ., 


s THIS ROUTINE IS USED TQ INSURE T 
F THE RH 
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;;LAST ADDRESS 
TRESTORE RI 
RESTORE RO 


;;CONTAINS THE LAST ADDRESS 


So ae AND Magtia BODRESS FOR RH11 


HE 8 


1‘: S_ SETUP FOR THE PROPER ADDRESS. . 
a WILL ALSO READ THE ADDRESS FROM THE TTY IF 


: JSR PC, BUSADR 
4 RETURN 
BUSADR: TST CHGADR 
BEQ 
CLR cAGADR 
1S: MOV #SRPADR, RO 
TYPE MRPCS1. 
V tRODS. =(SP) 
TYPOC 
YPE _ , LINSP 
RDLIN 


MOV (SP)+,R1 
JSR RS, CK. NUM 


25: MOV R2,-2<RO) 
38: TYPE MRHVEC 

MOV tROD+ -(SP) 
, LINSP 


MOV (SP)+,R1 
JSR RS, CK:NUM 


4$: MOV 
: M 


R 
R1,ERRVEC 








sREQUIRED. 
sNOTE: THIS ROUTINE DESTROYS RO-RY 


‘AOC BRANCH TTY REQUESTED? 


ANCH 
;YES--CLEAR THE REQUEST FLAG 
;EIRST ADDRESS 


1=" 
{PRESENT RPCS1 ADDRESS- 


’ 
;GET THE ENT 
; ADDRESS OF vPSCHI TEXT 
CHECK THE N 
; CARRIAGE RETURN ONLY ENTERED 

;PERIOD ONLY ENTERED 

SILLEGAL_ INPUT 

; TERMINATED 7 Be A CARRIAGE RETURN 
TERMINATED WITH A” 

; TERMINATED lirTH a* 

sS8VE Ne EW RPCS1 


ee tt RH11 VECTOR ADDRESS ON THE STACK 


oe 
REA D THE ENTRY 
ASCII TEXT ADDRESS 
;CHECK THE NU 
;CARRIAGE RETURN ONLY ENTERED 
sFERLOO Ont ENTERED 


;iL NPUT 
; TERMINATED ae A CARRIAGE RETURN 
TERMINATED WITH A ™ 

; TERMINATED WITH A ”.” 


INPUT 
AVE THE ERROR VECTOR 
:SETUP FOR Mares 
:CHECK FOR RH11 
RESTORE ERROR VECTOR 











RPO4/S5/6 MULTI-DRIVE EXERCISER 





MD-11-DZRJD-A, 





Bee0 MOV 
B22] MOV 
B2ee ; JSR 
Bees RETURN 
B224 RETURN 
8225 RETURN 
8226 RETURN 
8207 RETURN 
8228 RETURN 
8209 
B230 055114 O10446 CK.NUM: MOV 
B23i 055116 010346 MOV 

32 055120 O10246 MOV 
8233 055122 O0S004 CLR 
Be34 055124 005003 CLR 
Be35 055126 005002 CLR 
8236 055130 004537 027510 JSR 
8237 055134 OSS23e 65 
Bese 755136 055236 85 
8239 055140 0550 6$ 
249 O55i42 o55e34 75 
Be41 055144 1 
Be4s 055146 055232 iE 
8243 055150 062705 OO0004 1$: ADD 

154 006303 2s: 


03 
. 851 055172 OO4S37 027510 JSR 
B82S2 055176 055236 


MACY11 27(655) 
ZRJD.919 BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 


8199 oSS5032 012700 001170 MOV #SRPADR, RO sFIRST ADDRESS OF NEW PARAMETERS 
200 055036 012701 033250 MOV #RPADR, RI ‘FIRST ADDRESS OF WHERE TO PUT THEM 
8201 osso4e 0o12021 MOV (RO)+, (R1)+ ‘BUS ADDRESS 

202 O55044 012021 MOV (RO)+; (R1)+ ‘VECTOR ADDRESS 

8203 os5C46 000207 RTS PC * RETURN 

B204 oss0S0 0610137 o00004 8S: MOV R1, ERRVEC : RESTORE ERROR VECTOR 

8205 o55054 Oe2be6 CMP (SP)+, (SP)+ :CLEAN OFF THE STACK 

8206 O55056 104006 ERROR 6 “REPORT THE ERROR 

8207 055060 005737 ooo04e ae4e :IS THERE A MONITOR? 

8208 OSS064 9001703 BEQ 1$ =NO--GO_ASK FOR ADDRESS 

8208 O55066 000137 oos2s6 JMP $GETY2 :GO TO END OF PROGRAM 

8211 osS5072 950122 OS1S03 020061 MRPCS1: .ASCIZ @RPCS1 = 2 

8212 055100 020075 00 

8213 055103 le2 OS3110 O41S50S MRHVEC: .ASCIZ @RHVEC = 2 

ge14 055110 o36440 o00040 

8216 .SBTTL CK.NUM - CHECK NUMBER (OCTA 

8217 : THIS ROUTINE CHECKS AN ASCIZ STRING FOR LEGAL CHARACTERS 

gei8 AND FORMS AN OCTAL NUMBER IN Re 


#ADR, R1 
#NUM:? Re 
RS. CK. NUM 
ADR1 


Re, R3 
RS,CK.CHR 
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SEQ 0151 
















;ADDRESS OF ie STRING 
; MAX 2 amd pat # NUMBER 


;"CR" ONLY ENTERED -- Re 2 


; E - Re = 0 
; ILLEGAL wenn IN THE INPUT STRING 
s*CR" ENTERED -- Re = NUMBER 
“COMMA” -- Re = N 
: “BERIOD" -- Re = NUMBER 


;SAVE RY 

SAVE R3 

: SAVE . 

RETURN POINTER 

;ST ART ATK: AT ZERO 
;STORE RESUL 

;CHECK ONE CHAR ACTER 
ILLEGAL CHARACTER 

; CARRIAGE RETURN 


i Sos 
DIGIT 0-7 
T 


:DIG ne 
; INCREMENT RETURN PAST "CR" AND “PERIOD” ONLY RETURNS 
:FOR THE OCTAL NUMBER iH R3 

:DON’T LET IT GET TO BIG 




















;CHECK ONE CHARACTER 
ILLEGAL CHARACTER 





MO-11-DZRJO-A, RPOY’S/6 MULTI-DRIVE EXERCISER 
DZRJD.919 CK.NUM - CHECK NUMBER (OCTAL) 


0SS2e. 


040515 O47111 TITLE: 
030461 
042112 


032457 


LOADRYV: 


006460 
020110 


Ole 
peeesi 101 051040 
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-ASCIT 


-ASCIZ 


-ASCIT 


-ASCIT 


ASCIZ 


;CARRIAGE RETURN 

Sante 

‘DIGIT 0-7 

DIGIT 8-9 

DOES A “CR” FOLLOW THE “PERIOD” 
“BR IF NOT 


‘INCREMENT THE RETURN 
INCREMENT THE RETURN INDEX 
j INCREMENT i RETURN INDEX 
INPUT VALUE TOO LARGE ? 

:BR IF A IS 


;BR IF N 
HINCRENENT THE RETURN ADDRESS 


AD ERED VALUE 
CLEAN OFF THE STACK 
RESTORE R3 


RESTOR RE RY 
GET RETURN ADDRESS 
RETURN 


«CR><LF> /MAINDEC-11-DZRJD-A/<CR><LF> 


@RPOY/S“& MULTI-DRIVE EXERCISER PROGRAM@<CR><LF><LF> 


«CR><LF>/TO TEST DRIVE 0, REPLACE THE *'XXDP’ PACK ON DRIVE O/<CR><LF> 


/WITH ANOTHER PACK, CLEAR MEMORY LOCATION 40, /<CR><LF> 


ZAND RESTART THE PROGRAM/<CR><LF> 





MD-11-DZRJO-A, RPO4/S/6_MULTI-DRIVE EXERCISER 
ZRID. OL TABLE 


ABNRML § O264S4 = 
ACTDRY 033166 ACTSTR 033167 
GND 052636 ASGNL = 024144 


OoOwwmwmwanawawam DYDD D 
1 40-40-4840) DD HH 
ee 


DRYTYP 033132 


MACYL1 27(6S5) 


ATABIT 033236 
ATe = 000004 
ATE = 000100 
Al6 = 000400 
BAI = 000010 
BITO = 000001 
BITO3 = 000010 
81T07 = 000200 
BIT10 = 002000 
BIT14 = 040000 
BITY = 000020 
BIT8 = QOO400 
BUFTBL 001576 
CHGADR 001260 
cIs 035402 
CI8 035540 
CKCLK2 OeeS04 
CKHCE OQllel6 
CK.DIG Qe7S62 
CLOCK 023476 
CMCNT O0131e 
CMPAR 013104 
CMPRT 013632 
CMTRK 001317 
RLF = 000200 
CYLIMT 001350 
ATE 001220 
DCKER1 007652 
DEASGN Oec4Sle 
H1 047376 
047403 
DIGB = 000004 
LT = 100000 
DPINT 033142 
DRIVEO O41606 
DRIVEY O43e2e6 
RNUM_ OQSe61! 
DRVACT Q33ile 
DRVPRM 025310 
RY = 000200 
DTSY = 000200 
OT02 = 000004 
OT0& = 000100 
OT14 950100 
OT3 050052 
VA = 004000 - 
ECC 014232 
ECGD 00133e 


3 
ECMSKO = 001324 
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Boe = ean 


ATTN O01244 
aly = 000010 
AT = 000200 
Al? 001000 
BEGCOD 001414 
BITO00 = 000001 
BITO4 = 000020 
BIT08 = 000400 
BIT11 = 004000 
BIT1S = 100000 
BITS = O00040 
BITS 001000 
BUSADR 054662 
CIl 034610 
CI6 035424 
CKBUS_ 013020 
CKCLK3 9 Q2eS34 
CKSWR = 104407 
CK.NUM 055114 
CLR = QOO0040 
CMCYL 001314 


CSF . = 000002 ~ 
CATAPK 025070 
DATEIS 053127 
DCL__ = 000100 
DEFSSG Obese 
DH1 47554 


6 
ECBADO 001334 
ECCX O14764 
ECGD1 001340 
ECMSK1 001326 
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oye SYMBOL TABLE 
Ecsee 001322 EcWRO 901330 EcwWROL 001336 EMPTYO 41426 
MTVEC= 003030 EMI NN? 36 Mid. Q4e230 EMI] 6273 
nu2 ze pus 04535 Mig OMEGA] EMIS e454 
' 1. Nec GYEEIO Nel OV5531 Enge  QuSsbe 
i 4 ‘ é i 
2 ee: ee: ees 
ee mh of Be et ie 
Mar 35 Fras Raeeus m3 Babe 44 ; 
Baoaee Me asics EN tet NBeme BL 478e 
ENECON (348 ENeeT Baras END aS 53 = 04 
SEK 001355 NOTST 053550 ENTAOR 053064 ENTCOM 052751 
7 SSMBi6 NTORV 95277 ENTID  O5¥535 NTLMT 053023 
? oe OP *) OP 1 0265S 
EP 40 Dg SSG ERCTR 001206 ERPRCL 06574 E 006560 
duon00 RRVEC= 000004 EXT! = 000001 EXT10 = 000010 
xT2 = XT20 = 9 EXT4 = 900004 ExT4O = O00040 
ACTOR 015620 FAIRNS O01264 FaLPaR 067 FALPRI 90677 
= = 
pa ee = Ql 4 “pex ae 3 PELSUE Bf 45 = 5 5 
5 NRES O44 SET 352 GETBUF 915622 
snore S3cess setae Bizsee SERRE Bess = 0001 
¢ O36; GETREQ 941522 60. = OOO0D1 GOORIV 01 
SRV = D900; GTSWR = :04406 HCE = 900200 é 012100 
HCI = DOD! HCRC = So0400 HERCER OIDE4O HEOLIN OS3162 
HOUR 601266 + = 090011 HZ 01212 TARE = 002000 
yaeER  G117Ne DIS 140 IDLE _ Obie IDLE! 90623 
ie = 600! = S000! TLR 60 INCHAD 023260 
TNCMIS 9233 INCSKI 022304 INCSOF 023234 INCTOT O2335 
| INTDON OS TNTRVL 001370 INVLD 052727 TOTVEC= 000029 
ik -= Oool0C I 132 IXE = 004000 KSR 023640 
KSR1 523674 LA 035774 LACNT 033200 LF = g00012 
LImtr d0131¢ LINAS 050376 LINB3 50459 LINBS 050625 
CINBe § © 0740 CINCAS 2 LINCS 050773 FINDA3 O50440 
He gee HD RHE ee 
tiNEos 6359 LINES BSneas tiNESa BS5610 tENESE Osdere 
Her be 0 ep eo ee ete Br 
a! 
tinge | BSTERS tiNEza pStei tINEGa eteze CIneee 021630 
CINEED 021636 LINE? 21712 CINE7A 922040 LINES 922160 
CLINGS Q©1022 INKDV 027004 CINM3 950261 CINMY © Qsos24 
CINNS 980277 CINGCT Osel?e2 CINP3 050323 CINPS 50643 
CINRE 051040 CINSP 052073 CINSPO 052074 CINSS3 50507 
(Insta Ss0472 LINS3 O50344 CINSS 50543 CINSS 050661 
CINTS O50416 CINUOS O51051 CINW3  O50460 rInxa  Qsosss 
inde 051507 CINIOg O51543 CINIOC 051604 CINIOH O51711 
CINTIH O517%6 CINsC 650160 CINSP 050201 LINES  os0226 
CIN3.1 O31046 CINS.3 021160 CINS.4 O21212 CINSSP OS2071 
CINE.1 OS1S44 HINER C2166 CINTM OS1076 Ling 081124 
CINte 6 E1134 CINTR \ 51231 CIN7S ° 051154 CIN7T 23852 
tin7x  Qe1Zis CINEM \D&1e46 CINSB 051303 CINSE 08193 












SES 0196 









LINSI 051410 










MA™ SD 001 2 
MAXSEC= 1g XTRK= 2 0 MC = 
MCPEM) 4 MHS = 001 MINCYL= lest MINSEC= O001 
MINTRK= 900114 MINUTE 001270 MINX = po ebod MNOLTA pause 
MNTBL 17? MOH = Q20000 MOL = 910000 MONTR S20 
z C2 = 000020 MRHVEC 055103 MRPCS1 05507 
MSE = O0002eC MSTCK = Q00010 MWR = QO00040 MXDLTA O33260 
MXF = 901000 MXLACT 033256 MXWNOW 033264 M.OPID Qe70S2 
npeae pec tis M.OP41 027144 M.OP42 027154 or 
M. 7220 NBA = 100000 NED = 010000 NEDCLK 2651 
NEM os 24009 NEWUNT OO1465 NH = 9020 


iPADR = 0 RPBA . RPCA = 4 
FPCC = QO0D3E RPCS1 = 000000 RPCSe = 000010 RPCA = 000006 
RPOB = 0000ee RPOS! = 00001e = RPECL = Q00044 



















pos ee 


p2at0.519 

c2 = OO00%5 

BEERS = poopMS 

ReOF = 900032 

RPO et 
*O000 


WU os + 
SEDDAT O0llet 


SCHARC 031166 


MD- }- Yi hie RPOW-S/6 MULTI-DRIVE EXERCISER 
i SYMBOL TABLE 


RPS 


Re a 
Res, 


ND 76 
$BDSEC= 000124 
SCKSWR O31644 


ReINT_ pee 
N 
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eal = po0o14 RPERE = : Bee 
RPTHR — 0375% EPVEC 
Reoug gs2308 POS” _ 052307 
Fe 
: 


HM, = 004000 
WRTPK1 017526 
WRT.AD O40570 
ag Ro = Coteee 
SADR O0il2e 
SSUF 


BEL UF = 000006 
S$CMTAG 001100 $CM3 = 000000 








MO-11-DZRID-A, RPC4 5/6 wr EXERCISER MACYL1 27(655) 


DZRIO.029 


es Se 
Ee ir ne 


$T = 1S 
STYPOS 031420 


STvPoC 031216 
SuRDN = DadnoS 


ERRORS DETECTED: 


SYMBOL 


0 


#02RJDA mt Ke 


RUN-TIME 


5 62 1 SECONDS 
CORE USED: 39K 


Bae Bbtiee ey = 05018 


0. 532654 SDECVL 032669 
Sper X BB tt gPrBk 83 460 
SERRTY 030616 SERTIL 001112 

> OOt133 $2782" Qooaee 
= 000000 S$HINUM 032400 
SITEMB 001114 $LF 001166 
KS 01202 SLLVEC 001204 
SLPERR 90110 SLPVEC G 4209 
2271 SMS 2c60 
$NEXT = 900104 $NPATC= 000075 
! he 901 158 SNWROL= 000102 
MO 1416 SOPERC= 000036 
$Passc= 000070 ATT¢= 000030 
REVO= 000027 PSEL = 900 
SROCHR 032126 SROLIN 03016 
Bas = ponese anpese= paoe49 
SRPCS1= odes RPCse= 0 
= Wi = 
gR5Pe = wade 386 R2= Bpesss 
RPMR = 000260 = 
SRPWC = 000236 SSAVRE O22404 
$SEC = 000010 $SETUP= 090146 
$SOFT = 000060 $SSEC = 000022 
ssvec = 000210 SSWR = 122000 
S$TIME 022400 $TkB OO1146 
$TKSRY 030030 $™N = 00000! 
$TPB 001152 STPFLG 001157 
STRAP 033014 TRAP2 033 
$ 3050 S$TSTNM 001102 
$TYPE 030752 $TYPEC 031122 


TYP 
ila 031172 
SOFILL C31415 = 0SS5650 


:ME/NL:MC:MD: CND=RPOYS6.010,0ZRJD.019 
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Back * G3e3s 


FAIR = 000072 
GTSWR 1714 
ICNT 001104 
$LKCSB 001176 


PE 
SWROL = 900020 





SEG 0198 





F16 


rt runtia ” BS? disk rea 1 disk writes, 19 rinted 


. | am. : ard mms ‘Ae 
DOO OOO OE sreees ‘vaseue QUUUUOUUUUDUUDUDUU0U0L a pum snntt0a Ca gpo Soo aN iy vn 
*rfrtrtrtr MAAAAAAARaQQqQQaCQaaK + 


ti 
opetete tt. eek + 
WON as fe ses seater 


SRR HE ED DON Se NTT 





